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Fra 

redaktionen 


Så er vi på gaden med tredje nummer af AMSTRADBLA- 
DET. 

Siden sidst er der foregået en hel del ændringer, og vi 
har et par nyheder, som vi har glædet os meget til at vide¬ 
regive til læserne. 

På redektionssiden er der sket følgende: 

Da ideen om at lave et blad for AMSTRAD computeren 
blev undfanget engang i efteråret, vidste vi ikke, om et så¬ 
dant projekt »kunne bære«. De økonomiske ressourcer var 
også begrænsede, så næsten alt arbejde med forberedelse 
afbladet osv. blev lavet frivilligt og ulønnet af en række en¬ 
tusiastiske mennesker, heriblandt Lars Aarup Jensen 
som indtil dette nummer har været redaktør af bladet. 

Imidlertid har det vist sig, at der er et stort behov for et 
dansk brugerblad til »verdens bedste computer«, og ar¬ 
bejdet med at redigere bladet er blevet endog meget tid¬ 
krævende. Da Lars er under uddannelse, har han desværre 
ikke kunnet påtage sig en yderligere arbejdsbyrde, hvor¬ 
for han fra og med dette nr. fratræder som redaktør. Lars 
vil dog fremover stadig være at finde i bladets spalter som 
skrivende medarbejder. 

Som ny redaktør er ansat Peter Erfurt, som skal bygge 
videre på det grundlag, der allerede er skabt. Vi byder ham 
velkommen til bladet og håber, at hans indsats kun kan 
spores på en positiv mådeII 

Den anden nyhed er, at AMSTRADBLADET har indgået 
en såkaldt affileringsaftale med den engelske producent 
af AMSTRAD, som også udgiver AMSTRAD COMPUTER 
USER, det engelske brugerblad. Dette indebærer, at v: 
fremover må oversætte og anvende artikler, der bliver 
bragt i USER. samt at vi får en telex om ALT hvad der sker 
omkring AMSTRAD computeren - direkte fra fabrikanten! 

Det skulle gerne gøre DIG så godt orienteret som muligt 
om alle nyheder, tips osv., så du får den opbakning, dor 
skal til for virkelig at få glæde af din computer. 

Med denne aftale er vi i stand til at vælge de bedste ar¬ 
tikler fra USER, oversætte dem og bringe dem sammen 
med alle de danske nyheder og programmer, der til stadig¬ 
hed vælter ind af døren. Denne mix vil helt sikkert give et 
meget læseværdigt blad - at vi samtidig sparer dig for ud¬ 
giften til at købe et udenlandsk blad gør jo kun det hele 
bedre. 

Aftalen med Amstrad betyder IKKE, at vi ikke fortsat vil 
være kritiske overfor de ting. der lanceres både indenfor 
computere og software, men blot at vi kan bringe nyhe¬ 
derne LIDT hurtigere. Det kan ikke understreges nok, at vi 
er helt uafhængige af fabrikanter og importører. 

Med dette in mente ønsker vi dig god fornøjelse med 
bladet... 

oåfch 



Tegneren fangede lynhurtig den nye redak¬ 
tør - det er 1KKF. Preben Heirie 
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Amstrads lydrutiner 
- brug dem! 

I denne artikel skriver Clive om de mange 
lydmuligheder som Amstrad'en råder 
over samt giver eksempler på lydrutiner, 
du selv kan lægge i dine programmer. 

Amstrads lydchip er en meget kompleks kreds, som giver 
mulighed for mange interessante lydeksperimenter, men 
mulighederne er ret vanskelige at komme ind »på livet« af. 

I denne artikel håber jeg at kunne gøre brugen af lydfaci¬ 
liteterne en hel del nemmere end hvad manualen beskri¬ 
ver. 

SOUND er ikke kun LYD 

Simple lyde og lydeffekter kan let opnås ved hjælp af 
SOUND kommandoen. Umiddelbart efter kommandoen 
følger op til fire parametre (tal) for at danne en simpel lyd. 

Syntaxen er følgende: 

SOUND channel, pitch, duration, volume. 

CHANNEL er en af de tre lydkanaler. PITCH er tonen 
(noden), et tal der kan ligge mellem 1 og lidt over 4003 
(normalt ml. 50 og 1000). DURATION betyder længde, 
denne udregnes i 1/100 dele af et sekund. VOLUME er 
selvfølgelig lydstyrke og kan være mellem 0 og 15 (effek¬ 
tivt dog kun mellem 0 og 7 - dette vender vi tilbage til se¬ 
nere i artiklen). 

En enkelt tone kunne se ud som her: 

SOUND 1,100,50,4. 

Tonen i dette eksempel vil befinde sig nogenlunde højt 
oppe i tonerækken, vare 1/2 sekund og med middel lyd¬ 
styrke. Man kan eksperimentere med enkle toner og få 
nogle interessante og sjove effekter frem. Ved at anvende 
en FOR/NEXT lokke er det muligt at ændre tonehøjden 
trinvist, hvor hvert gennemløb af lokken enten hæver eller 
sænker tonehøjden. Dette giver indtryk af en »swe- 
ep« ende lyd, hvilket bedst illustreres af nedenstående ek¬ 
sempel: 

10 FOR t=400 TO 10 STEP -1. 

20 SOUND l.T.1,7. 

30 NEXT. 

40 FOR t=10 TO 400. 

50 SOUND l.T.1.7. 

60 NEXT. 

En meget enkel form for alarm eller advarsel kan let le 
ves ved at gentage to toner, den ene en anelse højere end 
den anden. Dette kan med fordel anvendes sammen med 
INPUTs, hvor man ønsker, at operatoren skal vågne op! I 

10 FOR t=l TO 12. 

20 SOUND 1,90. 

30 SOUND 1,110. 

40 NEXT T. 

De forskellige lydkanaler kan aktiveres samtidigt, hvil¬ 
ket giver en »tykkere« lyd - en lyd med mere dybde i. En 
mere interessant måde at bruge kanalerne på er dog at 
lade dem spille samtidigt, men hver med en smule ændret 
tonelyd (PITCH). Dette giver en »phased« lyd, som du 
f.eks. kan hore i dette eksempel: 

10 FOR T“300 TO 80 STEP -10. 

20 SOUND l.T:SOUND 2,T+3:SOUND 3.T-3. 

Prøv at eksperimentere med varierende forskelle i to¬ 
nens lyc. Eksempelrutinen ændrer lyden med faktor 3, 
prøv f.eks. 5 eller 6 Prøv også at ændre varigheden af to¬ 
nerne (DURATION). 

ENT og ENV-udbygning. 

Amstrad har to kommandoer, ENT og ENV. ENT bety¬ 
der ENVelope Tone (toneslojfe) og ENV betyder ENVelope 
Volume llydstyrkesløjfe). Lad os først se på ENT. ENT mu¬ 
liggør, at man kan ændre tonehøjden (= frekvensen) i en 
lyd, mens denne spilles. ENT bruges også et antal parame¬ 
tre (4 i alt). Det første parameter er ENVELOPE. NR. 


Dette gør det muligt for SOUND kommandoen at finde 
og aktivere, en bestemt tonesløjfe. Det er helt nødvendigt, 
hvis man i et program arbejder med forskellige tonesløjfer. 
Efter ENVELOPE NR. følger en gruppe parametre, der 
sammen bestemmer stige- og faldetid for lyden. Denne 
gruppe består af tre tal: 

1. Antallet af trin tonen kan ændres. 

2. Faktor. Dette tal (kan være positivt eller negativt, af¬ 
hængig af om tonen skal stige eller falde). 

3. Varigheden (i 1/100 af et sekund). 

På baggrund af de parametre, man opstiller, kan man 
lave forskellige beregninger af lyden, f.eks. et statement 
som: ENT 1,20,-3,5 bevirker, at tonen stiger med faktor 3 
for hvert af de 20 trin. Hvert trin varer 5/100 af et sekund, 
altså vil ovenstående resultere i lyd på totalt 1 sekund (20 
trin • 5/100 sekund). 

ENT skal kombineres 
med SOUND 

Når du nu har skræddersyet en tonesløjfe, skal denne selv¬ 
følgelig have en SOUND at arbejde med. 

Der skal føjes endnu nogle parametre til den SOUND 
kommando, vi kender fra tidligere. Et SOUND statement (i 
modsætning til SOUND kommando) skal efterfølges af to 
ekstra tal. I øjeblikket lader vi parameter nr. 5 være et 0, 
men det sjette tal skal fortælle SOUND, hvilken tonesløjfe 
den skal kalde, og altså referere til en tonesløjfe, du har op¬ 
rettet. i dit program. 

Det sidste punkt, du skal have med i beregningerne når 
du bruger tonesløjfer sammen med SOUND statements er, 
at din SOUND varer længe nok, så tonesløjfen får lov til at 
arbejde helt ud. Hvis du hæfter en tonesløjfe på 1 sekund 
sammen med en lyd, der varer 1/5 sekund, får du helt sik¬ 
kert problemer, da sløjfen kun får lov til at sige noget i sin 
begyndelse. 

Også ændringer i tonehøjden må ligge indenfor SOUNDs 
muligheder. En ændring på Pitch 80 i er. lyd med Pitch 60 
vil give problemer. Prøv at bruge tonesløjfen i føromtalte 
eksempel sammen med en lyd som: SOUND 
1,200,80,15,0,1. Du vil bemærke, at lyden stiger indtil nær 
slutningen, hvorefter den fortsætter med samme frek¬ 
vens. 

Decay 



El eksempel på en lydsloile Bemærk de hurtige sige- og laldetider 


Det er fordi tonesløjfen er slut efter 3/4 sekund, hvori¬ 
mod lyden fortsætter endnu 1/5 sekund. 

TREMOLO og andre effekter 

Indtil nu har vi kun beskæftiget os med at få tonen til enten 
at stige eller falde. 

Hvordan gør man, hvis man vil lave en tonesløjfe med 
både stigning og fald i? Ganske enkelt: Man tilføjer en 
gruppe parametre etter den første. Et eksempel kan for¬ 
klare det: 

Vi vil have en lyd til at stige med en total faktor på 50. Ly¬ 
den skal stige i 10 trin, der hver varer 4/100 sekund. Deref¬ 
ter skal rutinen vende tilbage til udgangspunktet på 
samme måde som den steg. 


5 








ENT sløjfen kommer så til at se ud som denne: 

ENT 1,10, -5.4,10,5,4. 

Ved at sætte hastigheden op i tonesløjfen samt tilføje et 
minustegn før slojfenummeret får vi en TREMOLO effekt. 
Minustegnet får sløjfen til at gentage sig selv, noget der er 
yderst praktisk i mange lydrutiner. Her kommer et eksem¬ 
pel på en TREMOLO: 

ENT-1,15,4,1,14, -4,1. 

Musik og ENV 

Vi har endnu en mulighed for at påvirke lydmønstret, nem¬ 
lig ENV kommandoen. Denne opererer på en lidt anden 
måde end ENT. 

Når f.eks. en node spilles, forbliver lyden ikke konstant. 
Tænk på en klavertone. Denne når sin maksimale styrke 
meget hurtigt og klinger så bort. En orgeltone »siger no¬ 
get« i meget længere tid og beholder den samme volume 
indtil man slipper tangenten, hvorefter den brat afbrydes. 

Det princip, som ligger bag ENV kommandoen kaldes 
ADSR, hvilket beskriver de fire faser, en tone gennemlø¬ 
ber: Attack, Decay, Sustain, Release. En simpel graf illu¬ 
strerer dette (se fig. 1) på foregående side. 

ENV kommandoen har nogle lighedspunkter med ENT 
kommandoen. 

ENV skal også have et sløjfenummer og har ligeledes en 
gruppe parametre, men disse består af: 

1. Antal styrketrin. 

2. Størrelsen ai disse trin. 

3. Varighed af hvert trin. 

Et simpelt ENV statement kan se således ud: ENV 
1,5,3,10. 

Dette giver en lydsløjfe, der varer 1/2 sekund og består 
af fem styrketrin der hver stiger med faktor 3.1 begyndel¬ 
sen af artiklen skrev jeg, at for simple lyde er den maksi¬ 
male styrke = 7. Med lydsløjfer har man mere fleksibilitet 
med styrketrin fra 0 til 15. På trods af at niveau 15 ikke ly¬ 
der højere end niveau 7 giver det større muligheder lyd¬ 
mæssigt at bruge en lydsløjfe. 

Hvis vi ønsker en fuld ADSR effekt skal vi bruge et helt 
sæt parametre for hvert trin op eller ned. Dette resulterer 
i et sandt monster af dit STATEMENT med ikke mindre 
end 13 forskellige tal. Der er dog ikke grund til at fortvivle 
helt. Hvis du laver dit STATEMENT som separate grupper 
af parametre, bliver konstruktionen en hel del lettere. 

SOUND statement'et der skal bruges sammen med ENV 
kommandoen, er lidt forskellig fra den, der bruges sam¬ 
men med ENT. 

Volumetallet skal sættes til 0, da volumekontrol er over¬ 
givet til ENV. Det sidste tal i SOUND skal også sættes til 0, 
og det femte tal skal nu være det samme, som du har døbt 
i din ENV, så kontrol overgives til denne. 

For at illustrere dette, kan du prøve at analysere følgen¬ 
de: 

ENV 3,4,2,10. 

SOUND 1,100,150,0,3,0 

De passer sammen!! 

Her følger et par lydrutiner, du eventuelt kan anvende i 
dine egne programmer: 

10 ENU 1,15,-1.3. 

20 WHILE INKEYS='"’ :WEND. 

30 SOUND 1, int(RND*300)+100,45,0,1.0. 

40 GOTO 20. 


IB BIT 1,S 15.1 

20 UH I LE I TOVS.UWD 

30 50IM l,MT(MMN)*7S.5g.l5.i.l 
40 CDID 20 


10 BIT 1.15,2,1 

20 DM 1,15 -1.1 

30 UHILE HttEW=" UBID 

40 SOUID l.limSMDl400)'20.15 0.1.1 

50 MTD 30 


Jeg håber, at artiklen har været til nytte for dig og ønsker 
dig held og lykke med din egen videre programudvikling. 

CLIVE 


Anmeldelser: 


Spil selv med KUMA's 
»Music composer« 

Der er en utrolig strøm af programmer til vores computer. 
Det meste af det kommer - selvfølgelig - fra England!! Der 
er mange gode spil imellem (for mange???), men når der 
endelig er et brugsprogram, bliver jeg i alt fald glad. 

»Music Composer« er et program, hvormed du kan ud¬ 
nytte den ganske fantastiske lydgenerator, der er i en Am- 
strad. Programmet henvender sig vel især til musikinte¬ 
resserede. eller sådanne der ønsker at komponere deres 
musik selv. 

Det er imponerende, hvad der kommer på skærmen, og 
det er interessant at se noderne bevæge sig hen cver skær¬ 
men, mens den komponerede melodi bliver spillet. 



Music Composer - leg Mozart på din Amstrad. 

(Foto: Leif Tychsen) 


At de toner jeg satte sammen mere lød som to hankatte 
i kamp en tidlig forårsnat, skyldes ikke programmets for¬ 
måen - for det spillede, hvad jeg bad det om - men nok 
mere mine ringe evner til at lave et melodi grand prix hit. 

Og alligevel - selv om jeg var imponeret ved første blik, 
viste der sig hurtigt et par væsentlige mangler ved »Music 
Composer«: 

Programmet udnytter ikke den i AMSTRAD indbyggede 
mulighed for stereo. Det er IKKE muligt at få udprintet sine 
mere eller mindre fatale kompositioner. Altså SCREEN- 
DUMP facilitet skulle være indbygget i »Music Compo¬ 
ser« . Desuden er det ikke muligt at bruge en allerede kom¬ 
poneret (eller afskrevet) melodi direkte i ens egne basic- 
programmer. Det kunne ellers være en god grund til at an¬ 
skaffe »Music Composer«. 

Konklusionen er. at »Music Composer« er et morsomt 
program med meget begrænset anvendelse. Efter en 13 
skala vil karakteren blive omkring 6. 
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SOFTWARE TEST 


ASTRO ATTACK 

ASTRO ATTACK er et arcade-spil, skrevet af Ian Beynon 
og markedsført af Amsoft. 

I oplægget til spillet hedder det: Din Space fighter bliver 
pludselig indfanget i en sky af radioaktive partikler, og du 
transporteres til en anden tidszone. Her finder du fjend¬ 
tlige rumskibe (Rigonites), som vil ødelægge dig. Heldig¬ 
vis er du bevæbnet med den sidste nye Photon Blaster, 
men jo længere du kommer i spillet, jo flere fjender bliver 
der, og jo farligere bliver de. Undgå de dødelige kraftfelter 
og fjendens ild for at bevare dine tre kostbare liv. 

Forventningerne stemmes højt, og efter at du har forbe¬ 
redt dig fysisk og psykisk (trimmet joy-stickhånden samt 
oparbejdet alle dine aggressioner) loades spillet ind. Og 
hvad møder dig så 

På skærmen ser du en firkantet ramme, der indeholder 
nogle vandrette og lodrette streger, der skal simulere for¬ 
hindringer i verdensrummet, samt fire små klatter, der be¬ 
gynder at drøne rundt inde i »labyrinten«. 

Du skal så jagte klatterne inden tidsmåleren i højre side 
når 0. 

Får du held med at skyde de fire første klatter, dukker 
der straks fire mere op. Hvis du kommer længere, begyn¬ 
der de sandelig også at skyde efter dig. OG DET ER ALF 
HVAD DER SKER!!. 

Det er simpelthen for dårligt at sende et så ringe pro¬ 
gram på markedet til så høj en pris. Astro Attack burde al¬ 
drig nogensinde være sluppet ud af AMSOFTs lokaler i 
Brentwcod, med mindre man ville bruge det som eksem¬ 
pel på, hvordan man vildleder sine kunder ved at pakke et 
dårligt produkt ind i en smart indpakning. 

For 4-5 år siden, da hjemmecomputerindustrien var me¬ 
get ung, var et sådant program MÅSKE acceptabelt, men 
med der. udvikling, der er sket siden da, er det uanstæn¬ 
digt at forlange over 29.85 for et spil som dette. 

Vi har jo set mange programmer fra AMSOFT, der er 
både flotte og fascinerende til samme pris som dette spil. 
Det koster altså åbenbart ikke mere at lave noget, der er i 
orden. Derfor SKAL der protesteres, når noget sådant 
kommerud på markedet. 

Som computerbruger er der kun et råd at følge for ikke at 
købte katten i sækken. Gå til en forhandler, der har mulig¬ 
hed for at vise dig programmet på skærmen, så du selv kan 
bedømme spillet in natura. 

Det er ikke nok, at indpakning og annoncering viser fan¬ 
tastiske billeder. Skærmvirkeligheden er ofte en anden, cg 
der er kun en, der kan bedømme om det erd i orden - nem¬ 
lig dig selv! 


Lyd 

• 

Grafik 

• 

Betjeningsvenlighed 

• • 

Fængslende 

C) 

Pris/kvalitet 

• 

Generel bedømmelse 

• 

Vejledende uds.pris: 

139.- 


KINGSWORD-TASWORD 

-AMSWORD 

what's the difference? 

Tekstbehandling vinder indpas flere og flere steder i dag¬ 
ligdagen, både på jobbet og i fritiden. Fra at være forbe¬ 
holdt professionelle er tekstbearbejdning på vej til at blive 
hvermands eje takket være de (forholdsvis) lave compu¬ 
terpriser. I denne artikel ser vi nærmere på tekstbehand¬ 
lingsprogrammer til Amstrad: 

Vi har valgt at koncentrere os om programmer, der er 
båndbaserede. Som du måske har bemærket i overskrif¬ 
ten, er der nævnt 3 programmer, KTNGSWORD fra COM¬ 
PUTER KING i Århus, TASWORD fra Jumbo Data 
og AMSWORD fra Amsoft. distribueret af TWILIGHT. 

De tre programmer er så ens. at vi har valgt at anmelde 
dem under et, med udgangspunkt i Amsword. 

På Amsword og Tasword båndet findes en BASICdel på 
11K, en maskinkodedel på 14K samt en file med tekst, som 
man kan bruge til at »øve « sig på. På Kingsword er den sid¬ 
ste file ikke med. 

Når programmet er LOADet, fremkommer et 3-delt 
skærmbillede, som er selve arbejdsområdet. Øverst findes 
et vindue med alle hjælpekommandoeme. Teksten i dette 
vindue kan scrolles op og ned, ligesom den helt kan fjer¬ 
nes, mens man skriver. I begyndelsen er det en meget stor 
hjælp at have disse hjælpekommandoer på skærmen, se¬ 
nere kommer de mest anvendte til at ligge i fingrene, og 
man fjerner dem så blot. 

Derefter følger et skrivefelt på 16 linjer, der udvides til 
22, når hjælpekommandoer fjernes. Nederst er der 2 linjer, 
en der viser skrivebredden og til slut en informationslinje 
med oplysninger om linjenr., lige højremargin, karakter¬ 
sæt m.v. 

Alt er menustyret. 

Ved et tryk på CTRL/ENTER kommer hovedmenuen frem. 

Man kan her springe ud i forskellige h;ømer af program¬ 
met. Der er mulighed for at fastlægge printerudskriftens 
udseende, lave specialkarakter, ændre printerkontrolka¬ 
rakterer, ændre skærmfarver både på skrift og »papir« 
samt hoppe ud af programmet til BASIC og give compute¬ 
ren nogle direkte kommandoer. Man kommer tilbage til 
tekstbehandlingen ved blot at skrive RUN. 

Kingsword har her en smart detalje. Man kan lægge ord, 
man anvender meget ofte over på funktionstasterne. Der 
spørges om tastens nr., hvorefter man skriver den nødven¬ 
dige tekst. I Tasword skal man ind i programmet og defi¬ 
nere de enkelte taster, hvilket gør det en hel del mere be¬ 
sværligt. 

Både Amsword og Tasword har valgt ikke at beskytte 
deres program, så man kan lave back-up kopier eller ænd¬ 
rede versioner, der er tilpasset ens egne specielle behov. 
Kingsword har ikke denne mulighed, formentlig på bag¬ 
grund af dårlige erfaringer med pirateri på det danske 
marltod. Derimod har man lavet et system, der hestår af en 
forloader, som der IKKE kan ændres i. Når Kingsword er lo- 
adet ind, kan man ændre i selve tekstbehandlingspro¬ 
grammets kommandoer og på den måce lave sin person¬ 
lige version. Når denne skal bruges, tager man sit original- 
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AMSTRADs forbindelse 
til omverdenen 


En computer skal helst kunne komme af 
med de data, der er lagret 1 den. Erik 
Hartmann ser nærmere på de to mest an¬ 
vendte standarder indenfor interfacing, 
nemlig CENTRONICS og RS232. 


Det kan være meget frustrerende at beskæftige sig med at 
forbinde en computer med den omverden, der er uden for 
computeren. Det man sædvanligvis onsker at forbinde sin 
computer med, er printere og andre computere. På læn¬ 
gere eigt opstår sikkert et onske om at komme i kontakt 
med en af de DATA-baser, der er eller uden tvivl vil blive 
oprettet. Man kan allerede nu komme i forbindelse med 
Prestel og Mikronet 800 i England, Teledata i Danmark og 
de mange private »Postkasser« (mailbox'es), der er opret¬ 
tet specielt i England og Tyskland. Her i Danmark er vi lidt 
bag efter på dette punkt. 

Der er to standarder »CENTRONICS« og »RS232«. der 
gor det muligt at forbinde en almindelig hjemmecomputer 
med omverdenen. Disse standarder er veldefinerede, men 
de enkelte fabrikanter tilføjer sædvanligvis forskellige raf¬ 
finementer til deres specielle computer. Det medfører så, 
at standarden ikke er standardiseret. Amstrad opfylder 
bl.a. ikke standarden, hvad printerporten angår Om det 
lovede RS232 interface vil gøre det, vides ikke på nuvæ¬ 
rende tidspunkt Det synes dog at være tilfældet. I stedet 
for en standard ville det være på sin plads at sige, at en 
computer kan tilpasses enten »CENTRONICS« eller 
»RS232« standarden, eller at den er »kompatibel« med 
standarden. Amstrads printerport benytter således »kun« 
syv af de sædvanlige otte datalinjer, (se nedenfor). Dette 
kan give problemer ved printning af visse bogstaver og 
ved udprintning af semigrafik. Dette selvfølgelig kun, hvis 
man anvender en anden printer end Amstrads egen eller 
SIEKOSHA GP-500. Nå. men det er jo den samme printeri 

I det følgende vil jeg prøve at skabe lidt klarhed omkring 
den tåge, der synes at være omkring »CENTRONICS« og 
»RS232«. Ganke kort: »CENTRONICS« er et PARALLEL- 
interface og »RS232« er et SERIEL-interface. Denne for¬ 
skel må nok lige forklares: De fleste hjemmecomputere 
(med undtagelse af TI/99) arbejder internt med »dataord«, 
der består af en kombination af otte nuller og et-taller (bi¬ 
nære tal). For at komme i forbindelse med omverden skal 
nogle af disse »dataord« ud af maskinen. Sendes disse 
»dataord« 8 og 8 ad gangen efter hinanden, taler man om 
parallelforbindelse. Men sendes først første, så anden, så 
tredje osv. del af et »dataord« afsted og dernæst det næste 
»dataord« på samme måde afsted i en række efter hinan¬ 
den, så taler man om serielforbindelse. En »Centronics« 
forbindelse bruger således mindst otte ledninger og en 
»RS232« forbindelse kan nøjes med to. 

Parallelforbindelse - 
Centronics 

Parallelforbindelsen kaldes for »centronicsn-mterface. 
navnet er opstået, fordi det var firmaet CENTRONICS, der 
først brugte det til deres printere. »Standard« Centronics 


konnektoren (den, der sættes i computeren eller i printe¬ 
ren) har 36 ben. Der er otte datalinjer, tre printkontrollinjer 
og dertil adskillige andre kontrol og diverselinjer. 



TABEL 1 


pin nr 

beskrivelse 

Signalretning 

i 

protectiv ground 


2 

Transmittet data 

output 

3 

Received data 

input 

4 

Request to send 

output 

5 

Clear to send 

input 

6 

Data set readv 

input 

7 

Signal Ground 


8 

Carrier detect 

input 

Tabel 1 er gengivet på engelsk, da de fleste computer- 

computerbeskrivelser er på dette sprog. 


AMSTRAD har som sagt valgt at anvende et KKE-stan- 
dard stik mellem computeren og printerkablet. Ligeledes 
er der anvendt fladkabel, hvilket er billigere at montere, 
men desværre mere følsomt over for at blive bojet og 
knækket - så pas på! 1 Kaster man et blik på figur 1, ses det, 
at næsten alle benforbindelserne bliver benyttet. Efter¬ 
hånden har man dog fundet ud af, at det ikke er nødven¬ 
digt, når Centronics interfacet skal anvendes til hjemme¬ 
computere. Sædvanligvis er kun datalinjerne (DATA 1-8 
eller 0-7), samt STROBE. ACKN, BUSY, +-0 og CHASSIS 
GND linjerne anvendt. Grunden dertil er. at printernes in¬ 
terne elektronik kan gøres simplere og dermed billigere. 
Og med de skrivehastigheder, som de almindeligt an¬ 
vendte printere benytter, har det ingen betydning for den 
sikkerhed, hvormed overførslen af » dataord « foregår. 

Serielforbindelse RS232 

RS232 anvender i sin grundlæggende form en enkelt led¬ 
ning. hvorigennem computerens signaler (sædvanligvis 
ASCII-karakter) sendes serielt. At signaler sendes serielt 
vil sige, at det monster karaktererne er dannet af. sendes 
afsted efter hinanden. Problemet ved RS232 er således, at 
en karakter, der jo som bekendt består af 8 bits - en sam¬ 
menblanding af O-er og 1-tere - skal afsendes pé en sådan 
måde, at den computer, der modtager signalerne, kan 
kende forskel på et 0 og et 1-tal. Dette kan igen gøres på 
flere måder, men det almindeligste ved datakommunika¬ 
tion over større afstande er at lade 0 være repræsenteret 
ved een tone og 1 være repræsenteret ved en anden tone. 
Ved kommunikation over korte afstande, som for eksem¬ 
pel mellem en Amstrad og en printer eller mellem en Am¬ 
strad og en anden computer (programoverføring f.eks .) la¬ 
der man 0 være lig 0 Volt (eller -12 Volt) og 1 være hg 5 Volt. 
I det sidste tilfælde vil man som regel benytte en ekstra 
ledning til kontrol af dataoverførslen. Det stykke elektro¬ 
nik. der hos afsenderen omdanner bits til toner og hos 
modtageren omdanner toner til bits kaldes et MODEM. 
Det står for MOdulator-DEModulator. Det er sådan et 
mange af os går og venter på efter at have set det i de en¬ 
gelske Amstrad annoncer! 
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Sammenligning af 
de to systemer 


Når man således ser på forskellene på de to systemer - 
RS232 og CENTRONICS - er det indlysende - alene når 
man betragter det antal ledninger, der skal anvendes - at 
RS232 egner sig bedst til at transmittere data over lange 
afstande, og at CENTRONICS egner sig bedst på korte. Li¬ 
geledes må det være indlysende, at den sikkerhed, hvor¬ 
med datatransmissionen foregår, er størst ved anvendelse 
af CENTRONICS (mindst fejl) og mindre ved anvendelse af 
RS232. 

CENTRONICS er mest anvendt til at forbinde compu¬ 
tere med printere og til at forbinde computere indbyrdes 
over korte afstande. RS232 anvendes også til at forbinde 
computere med printere. men derudover anvendes RS232 
primært til datatransmission via MODEMs og telefonled¬ 
ninger og/eller radioforbindelser. 

Både RS232 og CENTRONICS er standardiserede, hvad 
angår foibindelsesstik til computerne. RS232 systemet er 
sædvanligvis via en 25-polet »Do-stik (connector), men 
kun de otte af de 25 poler anvendes normalt. Hvorledes en 
printer forbindes via RS232 vises i tabel 1: 

En forudsætning er selvfølgelig, at de to computere forstår 
hinandens »sprog«. 

En CENTRONICS' forbindelse mellem en computer og 
en printer eller en anden forbindelse til omverden går gen¬ 
nem et 3B polet centronicsstik. Igen er det her således, at 


Skal to computere 

forbindes kan det gøres på 

følgende måde 

2 .. 

-3 

3 . 

- 2 

Compt. 1 4 - 

- 5 compt 2 

5 . 

—-. 4 

7 .— 

-- 7 


Fig. 2 


ikke alle polerne bruges. 11 af de 36 er nødvendige for at 
give en forbindelse til de sædvanligvis benyttede printere. 
Resten af polerne benyttes til stelforbindelse (»jord«) eller 
kan benyttes ved mere avancerede systemer. De benyt¬ 
tede poler er følgende: 

Fig. 3 

PRINTER PORT 34 WAV 0.t EOOE CONNECTOR 
VIEWEO FROM REAR 

il » « « n a i* * i • i • • • > i i 

» » u o 11 k » n II » n 11 » a >1 » n 


PIN 

1 

STROBE 

PIN 

6 

04 

PIN 

2 

DO 

PIN 

1 

OS 

PIN 

3 

Dl 

PIN 

e 

D6 

PIN 

4 

D2 

PIN 

9 

D7 

PIN 

S 

D3 

PIN 

11 

BUSY 


Jeg håber, at denne gennemgang har taget noget af my¬ 
stikken ud af betegnelserne »CENTRONICS« og »RS232«. 
Der er selvfølgelig mange spørgsmål, der nu opstår, bl.a. 
det prismæssige. De fleste printere er afødt« med CEN¬ 
TRONICS parallelindgang (eller i alt fald noget der ligner 
det), og der skal altid betales en merpris på ca. 700 kr. for 
at få sin favoritprinter med »RS232«. 

Et PS for de teknisk interesserede: 

Har du anskaffet dig DDI-1 i Diskettedrev, så prøv at 
LOAD'e SETUP.CMD. Se samtidig i manualen eller, bedre, 
i DDI-1 i FIRMWARE bogen (softl58A). Af dette program 
fremgår det, at CP/M er forberedt for RS232 interface. Det 
er endda således, at der (med det rigtige modem) vil kunne 
arbejdes med forskellige modtage- og sendehastigheder 
(baudrates). Af DDI-1 interfacet skal anvende en ZBOA 
SOI/O eller en Z80-DART og 8053 programmerbar timer. 
Baudrate, stop bit, paritet og databit indstilles ved hjælp 
af SETUP.CMD programmet. Her er vist noget for en dansk 
Hardwareproducent!! I 
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Micro-data 85 
i Bella Centret 

Årets mediebegivenhed nr. 1 indenfor 
computere er vel nok MICRO-DATA mes¬ 
serne i BELLA-CENTRET. Selvfølgelig 
har Amstradbladet også benyttet lejlig¬ 
heden til at se nærmere på, hvad der rører 
sig netop nu. 

Deres udsendte, Lars Aa. Jensen, har 
sendt følgende beretning: 


Udstillingen Microdata 85 var i høj grad præget al PC- 
markedet. 

Hjemmecomputerne var dog også repræsenteret, men i 
noget mindre grad. Den danske importer af AMSTRAD, Di- 
namicro, samt datterselskabet Twilight havde en fælles 
stand med computere og tilbehør. 

Dinamicro præsenterede faktisk ingen nyheder (ingen 
efterfølger til CPC 464). men det gjorde derimod Twilight. 
Seriøse discprogiammer, spændende hardwarenyheder 
og masser af nye spil var bare nogle af tingene. 

Blandt discprogrammerne var en række helt nye CPM- 
programmer, henblandt MICROPEN, MICROSPREAD og 
MICROSCRIPT, hvilket står for hhv. database, spreads- 
heet og tekstbehandling. Amstradbladet prøvekøret i 
øjeblikket disse for en senere uddybende beskrivelse, 

På hardwaresicen var det nok specielt speechsynthesi- 
zeren fra dk'Tronxs, der vakte opsigt. Denne kan du læse 
nærmere om andetsteds i bladet. 

Et RS232 interface er også en af nyhederne. Dette var 
dog ikke med på messen, men er, når vi udkommer, leve¬ 
ringsklart. I løbet af kort tid er der i øvrigt et modem klart, 
der kører sammen med RS232 interfacet 


Svensk-Norsk Bogimport, der var repræsenteret på ud¬ 
stillingen sender i løbet af foråret en række nye bøger på 
markedet. Det drejer sig om følgende: PCW GAMES COL- 
LECTION ON YOUR AMSTRAD, pns ca. 90 kr„ BUSINESS 
PROGRAMMING ON THE AMSTRAD, pris ca. 180 kr„ 
BRAINTEASERS, pris ca. 135 kr. og ADVANCED PRO¬ 
GRAMMING ON THE AMSTRAD til en pris på ca. 160 kr. 
Så snart disse dukker op, vil vi se nærmere på dem. 

På maskinsprogsfronten havde Twilight en lækkerbid¬ 
sken med. AMSTRAD MASKINKODE, skrevet af Søren 
Grynnerap og udgivet af Copenhagen Book Centre. Søren 
har allerede lavet en lignende bog til Spectrum compute¬ 
ren. 

Lej en Amstrad 

Dansk Computerudlejning stod for en nyskabelse på hob- 
bydatamatmarkedet. Man tilbyder en lejeaftale (kr. 298/ 
md.) for en AMSTRAD med tilhørende RGB monitor. Godt, 
hvis man gerne vil forsøge sig med en computer, inden 
man erlægger kr. 6000 ved kasse 1. 

I øvrigt er AMSTRAD også så småt ved at vinde indpas 
i undervisningssektoren. Vi talte på udstillingen med en 
lærer fra Rødovre, som fortalte, at man under AOF havde 
anskaffet seks AMSTRAD computere og to diskettestati- 
ener. Man underviste hovedsaglig i DA3IC, men også PAS¬ 
CAL blev brugt. Man har endvidere planer om at starte et 
kursus op i tekstbehandling, hvor man vil anvende TAS- 
WORD som udgangspunkt. 

Af andre firmaer på messen (de VAR der jo også) kan vi 
ikke lade være med at nævne IBM, som havde en stand 
med en tegnende skildpadde. Den var styret via infrarødt 
lys og arbejdede helt uden kabelforbindelser til deres com¬ 
puter. 


Mogens Larsen fra Garand Computer i Odense. Forfatter 
til bogen »Min utrolige Amstrad«. 


Også nye bøger på messen 

Fra Garand Computer i Odense (det var dem med »Min 
utrolige Amstrad*) forlyder det, at der er en helt ny bog på 
vej om Amstrad. Der er tale om en uddybning af manualen, 
ligesom der bliver en speciel sektion om diskettestationen 
med en hel del mere stof, end der står i den MEGET tynde 
manual. Den nye bog bliver skrevet af Carsten Grønbæk. 


Færre besøgende 

Besogstallet på udstillingen var nok en smule skuffende 
for arrangørerne. Der var 10.000-15.000 færre besøgende 
end sidste år. For de, der kom, var dette dog en fordel. Man 
f k nemlig set en masse i modsætning til tidligere, hvor det 
var svært at få et glimt af noget som helst på grund af de 
mange mennesker. 

Konkluderende må siges, at MICRO-DATA 85 har været 
et besøg værd. Arrangører og udstillere har lagt et stort ar¬ 
bejde i at vise deres produkter på en flot måde. Måske sav¬ 
nede VI lidt flere udstillere fra hobbydatamatsektoren, 
men det har jo nok noget at gøre med priserne på at leje en 
stand. Der skal nemlig sælges MANGE varer for standle¬ 
jen er hjemme igen. 

Til slut en tak til BELLA-CENTRET for en fin modtagel¬ 
se, specielt til Anne Panum, som gjorde meget for at intro¬ 
ducere os de rigtige steder. 
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AMSTRAD bladet tester 
dk'Tronics 

SPEECH SYNTHESIZER 



Synes du, der er for lidt action i dine spil, 
eller er du træt af små BLEEP og DYT fra 
den indbyggede højttaler, er her rednin¬ 
gen for alle fans af stor og flot stereolyd. 
Et stereofonisk kaos kommer væltende 
ud af to højttalere på hver side af monito¬ 
ren, når du nedkæmper din yndlings- 
fjende eller selv dør en ynkelig og lidet 
glorværdig død. 

Men til det lidt meie seriøse: 

dk'Trcnics (hvilke Spectrumejere kender ikke dette hæ¬ 
derkronede firma) har udviklet on kombineret talccyntcoo 
og forstærker med to tilhørende højttalere. Talesyntesen 
leveres som plug in modul, der passer til floppy disc porten 
bag på computeren. Modulet er forsynet med gennemfo¬ 
ring. så en eventuel disc bare kobles bagpå talesyntesen. 
Her foruden er der en ledning, der tilsluttes I/O porten. Ee 


to højttalere ligner i betænkelig grad dem, man normalt 
kan købe til 39.85 i autotilbehørsforretningerne og har en 
let metallisk lyd. Det er dog svært at afgore, om det er højt¬ 
talernes skyld eller om det skyldes Amstrads lydchip. 
Sammenlignet med lyden på Commodore 65 falder Am¬ 
strads lyd unægtelig lidt flad ud. 

Lyden kan reguleres ved hjælp af en knap, der sidder på 
forstærkermodulet, hvilket kan være ret bekvemt somme¬ 
tider. 

Prøv engang at dø i stereo 

En af de ting, der umiddelbart virker meget imponerende 
er, at spillyde foregår i STEREO. Der er dog ikke tale om 
den lyd, du kender fra biografen, hvor helten, der kommer 
ind fra højre også taler i højre side af lærredet. Der er kun 
tale om, at f.eks. dine »skud« hores i højre kanal og fjen 
dens i venstre, men det giver unægteligt en hel del afveks¬ 
ling, især hvis du er i virkelige vanskeligheder. Selve lyd- 
forstærkeren og højttalerne kan tilsluttes og anvendes di¬ 
rekte, d.v.s. uden nogen form for software.. 
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TWILIGHT 


i vviLian i aps. 


26 FLINTHOLM ALLÉ - DK 2000 COPENHAGEN F - DENMARK - PHONE: 01 - 88 07 34 



DANSK 

DATABASE 

op til 9 kolonner å 40 karakterer, addere kolon¬ 
ner, bytte kolonner Æ, 0, A på skærm og prin 
ter, printe kolonner eller registreringer, søge 
alle oplysninger, udnytter RAMpladsen opti- 

malt - Pris kr. 248.-på kassette. 


DANPRESS 

BOGHOLDERI 


dansk boyliolderi-syslem (finans) med konto¬ 
plan, automatisk moms konti, saldo lister, 
konto oversigt, periodekørsel og mulighed for 
udprintning af posteringer samt ovenstående. 

Pris kr. 498.- kassette 


AMSYS 

KARTOTEK 


design dit eget kartotekskort bestående af 22 
linier, hvor der kan være flere felter på hver li¬ 
nie. Udover kartotek kan den også regne de 4 
regnearter og stykke disse sammen i en for¬ 
mel. Hvis hvert kartotekskort indeholder 100 
karakterer, kan en diskette indeholde 1682 


kort. 


Priskr. 498.- på disk 


AMSYS 

GRAFITTI 


Grafitti er et tegneprogram, hvor du kan bruge 
joystik eller piletasterne. Du kan tegne cirkler, 
elipser, firkanter, male, skrive tal og bogsta¬ 
ver i forskellige størrelser og alt hvad du har 
brug for, for at kunne lave fantastiske tegnin¬ 
ger. Har du en printer, der er Epson compati- 
bel. kan du få en kopi af skærmbilledet i 27 
gråtoner. Disk-versionen indeholder desuden 
en sprite designer med mulighed for 15 for¬ 
skellige sprites der kan være 255 gange på 
skærmen hver. 

Pris kr. 498.- disk / 298.- kassette. 


ALT-i-ET TOTAL 

ADMINISTRATIVT 

SYSTEM 

Finans, debitor, faktura, lager og kredilor (fås 
også som løse moduler). 

Kontoplan (født med handelsskolens vejle¬ 
dende, kan ændres). 

Labels fra debitor-, kreditor- og lagerkartotek • 
faktura »specificerede kontoudtog for debi¬ 
tor, kreditor og finanskonti»debitor-, kreditor- 
og lagerlister »prislister# ordrebekræ f telse» 
kreditnota • status for debitor-, kreditor-, la¬ 
ger- og finanskonti»rentenota»følgeseddel» 
kassekladde • perioderegnskab • driftsregn¬ 
skab • indbetalinger » restordre- og optæl¬ 
lingslister 


KAPACITET 

Posteringer 

Varenumre 

Debitorer 

Kreditorer 

Finanskonti 


1 diskstation 
2.600 
650 
400 
50 
140 


2 diskstationer 
4.000 
800 
400 
75 
150 


Pris for hele systemet excl. moms 

1 disk system 4094.40 kr 

2 disk system 4914.10 kr. 


















En nyhed, der gør det lettere for dig!!! 


Fra og med dette nummer af Amstrad-bladet har du muljc- 
hed for et slippe for at taste de lange progr amlis tningcr 
ind selv. 

Vi samler nemlig samtlige programmer, der bringes i 
bladet på et cassettebånd, som du får til en absolut bru¬ 
gervenlig pris: kr. 39.85 mel. forsendelse. 


Du indbetaler blot bolobot på GIRO 6 26 51 97, forlaget 
M1CR0TECH ! :ovedgårdvej 4. 8600 Silkeborg. På girokor¬ 
tet skrive: du hvilkencasseite du onsker, hvorefter denne 
tilsendes i lobet af nogle dage. 

DENNE MANEDS CASSETTE HAR NR. 285. 



Manedens hovedprogram er indsendt af en læser i Odense, som onsker at være anonym Vi skal derfor 
nøjes med at kalde ham HJK 

HJK lin- (vel et program, der holder styr på ALLE udgifter til vores allesammens k.Hu dyr, BILEN. 

Proy: i er oprindelig udviklet til en Spectrum, men er konverteret til Amsttad, samtidig med at 

der er I.« .•» gie ekstra features ind. Der er mulighed for at få en grafisk afbildning af alle oplysninger i 
form af t u BAR-GRAPH, som ser virkelig professionel ud. 

I det hele taget er progrumemt så gennemfort, at der kan læres meget omkring programmering ved at 
studere listningen i detaljer 

I det følgende bringer vi vejledning i brug af programmet samt dets hoveddata 

Programmet Auto er opbygget til et komplet regnskab for 
autoudgifter. 

Program start. 

Programmet startes med tastning af iCTRLi og »Lille Enten. Når programmet er »runnet«, tastes 13u 
for load af data Hvis det er forste gang. programmet skal anvendes, er der naturligvis ikke data at loade, 
men der startes med indtastning af data 

Nårman er færdig med indtastning af data, skal de saves ved at taste »12« på hovedmeny. 

Programmet er i princippet opdelt i en »inputdel« og en »oplysningsdel«, samt savning og loadning af 
data 

1. Input, 

Der er følgende faciliteter under denne del: 

Benzinkob. 

Oliekob. 

udgiftei til forsikring og vægtafgift 

Reparationsudgifter. 

Diverse udgifter. 

Når der er valgt input af data sporger skærmbilledet, forst om »dato«. Det er i denne forbindelse meget 
vigtigt, at der anvendes følgende standard Den 12, januar 1985 skal indtastes »850112« 

Deiefter sporges om »kilometer«. Her indtastes aflæsningen af bilens kilometertæller ved udgiften. 
Der må kun anvendes hele tal. altså ikke 9000,5, men 9000. Det næste der sporges om, er »pris kr «. Husk, 
at der aldrig mé anvendes »,» MEN KUN ».« ved anvendelse af decimaltal. 

Sidste spørgsmål er enten »btor« eller »art« Ved input af benzin- eller oiieudgifter »liter« Indtast med 
en ellei to decimaler elter ønske. Ved input for reparationsudgifter, øvrige udgifter eller forslkring/væg- 
taigili, sporges der om »art«. Eks. »reparation al kolersystem«. 

llinje 25 sporges der nu om indtastningerne er korrekte. Er der lavet en fejltastning, svares der »N« 
» »Enten. Er indtastningerne rigtige, tastes der (Enten. Derefter bliver der i linje 25 spurgt, om der ønskes 
flere indtastninger svar med »Nu for nej, og »J« aller »Enten for ja 
2. Oplysninger. 

der or følgende faciliteter under denne del: 

Benzinforbrug. 

Olieforbrug. 
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Reparationsudgifter. 

Diverse udgifter. 

Forsikringe r/væg tafgif t. 

Samtlige udgifter. 

Oplysninger om benzinforbrug: 

Skærmen spørger om »aar«. Indtast det ønskede aar, eks. »85«. Programmet vil nu vise kørte kilometre, 
benzinkøb, kilometre pr. liter benzin, og den samlede udgift til benzin pr. måned. 

Linje 25 spørger, om der ønskes oplysninger om en af månederne. Ønskes f.eks. oplysninger om janu¬ 
ars benzinkob, tastes »01«, og skærmbilledet viser de enkelte køb i januar. Tastes der »C«, udskrives 
kopi på printer. Tastes der »G«, vises benzinforbruget iet tredimensional søjlediagram. Tastes »M«. vi¬ 
ses hovedmeny. 

Oplysninger om olieforbrug. Skærmen vil vise oliekøbene, der er indtastet. Linje 25 spørger, om der øn¬ 
skes udskrift. Svares der »N«, går programmet til hovedmeny. 

Oplysninger om reparationsudgifter. Skærmen viser reparationsudgifterne med dato, kilometerstand, 
pris samt arten af reparationen. 

Oplysninger om diverse udgifter. Som ovenstående. 

Oplysninger om forsikring og vægtafgift. Som ovenstående. 

Oplysninger om samtlige udgifter. Skærmen spørger om »aar«. Der kan svares med f.eks, »85«, og man 
får beregningerne fra det pågældende år. Der kan også svares med -*■ (shift £), og man får beregningerne 
for alle år. Der oplyses følgende: Benzinkøb: Liter og kroner Oliekøb: Liter og kroner. Reparationer: Kro¬ 
ner, Diverse Kroner. Forsikring og vægtafgift: Kroner, Ialt korte kilometre: Kilometre, udgift pr. km: Kro¬ 
nerpr. kilometer. Kilometer pr. liter benzin: Kilometer pr. liter. Kroner pr. liter benzin på årsbasis: Kronet 
pr. liter. 

3. Save og load data. 

Der anvondoa et bånd (diskotte) til de data, der indtastes og de variabler, der er nødvendig for fortsæt 
telse af programmet næste gang. det kores. 

4. Hovedmenyen 

viser antal frie bytes, der er til rådighed til data. Der er her taget hensyn til, at det »koster« 4096 bytes 
at save et program, d.v.s. at udover de frie bytes er der reserveret plads til save-procedure 

5. Kalkulator. 

Der kan fra ethvert skærmbillede fremkaldes en »regnemaskine« . Ved at taste »K« kommer der i linje 1: 
Kalkulator klar« 

Nu indtastes tallene direkte f.eks 25145/12 lEnten. Resultatet vises, og der spørges om flere kalkula¬ 
tioner. Svar »J« eller »N«. 

Kalkulationsprogrammet kan ikke »klare« sammensatte beregninger, altså ingen paranteser etc 
Der er følgende indlagt: * multiplikation. / division, + addition, - subtraktion, » potensoploftning (og 
dermed kvadratrod, f.eks. a$0.5 = kvadratrod a). 

Bemærkninger til BASICprogrammet: 

Programmet har kørt siden efteråret 1983. Det er nødvendigt at lægge nogle faste værdier ind i pro¬ 
grammet. Ved hvert årsskifte skal bilens kilometertæller aflæses og indføjes i programmet. 

4900 IF SS=»83« THEN KM=675000-VAL(MIDS(BEN5ll),7,6)). 

4910 IF SS”»84« THEN KM=93300-67500. 

4920 IF SS=»85« THEN KM=VAL (MIDS(BENS(bt)7,6))-93300. 

3040 og 3670 IF VAL (AARMDSH8401 THEN Ki-67503. 

3050 og 3770 IF VAL (AARMD=8501 THEN Ki=93399 

Værdierne 67500 og 93300 er aflæsninger ved årsskiftet 83/84 og 84/85. 

Skal programmet startes op nu. slettes linjerne, men husk, at de skal inføjes med andre værdier ved det 
følgende årsskifte. 

Der er anvendt følgende dimensioneringer: 


100 DIMD1A 

Grafik 


110DIMBENS(200) 

Benzinregnskab 

(saves) 

120 DUN IkueS(20) 

olieregnskab 

(saves) 

130 DIM REPS(50) 

rep.regnskab 

(saves) 

140 DIMFORSS(50) 

Fors. og vægtafg. 

(saves) 

150 DIM DIVS(50) 

Diverseregnskab 

(saves) 


Der er anvendt følgende variabler der saves: 

(bt) tæller for benzinregnskab. 

(ot) tæller for olieregnskab. 

(rt) tæller for reparationsregnskab. 

(ft) tæller for fors./vægtafg. 

(dt) tæller for diverse regnskab. 

Der er anvendt følgende variabler til mellemberegninger: 
Inputprogrammer: 

DS dato. 

KS kilometre. 
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• 

PJi kroner. 


L$ liter eller art. 


Outputprogrammer: 


FOrqikring/vsegtafg. FORS 


Reparation: REP 


Diverse: DIV 


Olie: OLIE, KTLI, OLL, KRLY 


Benzin: KRT. X, KIT. LBT, KR. LB,Kl.k2.k3. 


Grafikfi (inds. i benzpr) M 


Samtlige udg.: KRT. LB. KRO. LO, KRR, KRF, KRA, KRB. 

OG NU TIL SELVE PROGRAMMET: 


10 REM AUTOREGNSKABSPROGRAM 

560 GOTO 400 

i 20 REM FOR AMSTRAD CPC 464 

57ø REM inputs bsnzin 

Jø REM COPYRIGHT H.J.K. 8, AMSTRADBLADET 

58ø bt=bt+l 

30 REM BEN*(t > ,1,6 = DATO 

59ø CLS:PRINT 

6ø REM BEN* <t) ,7,6 = KILOMETER 

6øø PRINT TA6<22> i "»»>>>>>> INPUTS BEN 

70 REM BEN*(t) ,13,6= KRONER 

ZIN <<<<<««<" 

8ø REM BEN*(t) ,19,5= LITER 

610 LOCATE 34,5:PRINT"DATO s" 

9© WIDTH 8ø 

62ø LOCATE 29, 9:PRINT“KILOMETER >" 

løø DIM DIA <12) 

63ø LOCATE 31,13iPRINT"PRIS KR.s" 

110 DIM BEN*1200) 

64ø LOCATE 33,17iPR!NT"LITER s" 

120 DIM OLIE*(20) 

65ø GOSUB 6030 

130 DIM REP*(5ø) 

660 LOCATE 41,5«INPUT|D*jLOCATE 41,5:FRI 

140 DIM FORS*(50) 

NT" "sLOCATE 41,5:PRINTID* 

150 DIM DIV* (50) 

670 LOCATE 41,9|INPUT K*:LOCATE 41,9|PRI 

2øø REM HOVEDMENY 

NT" LOCATE 41,9: PRINT K« 

210 CLSiMODE 2iPRINT 

68ø LOCATE 41,13iINPUT!P* s LOCATE 41,13:P 

220 PRINT TAB(23> ("»»>>>»> AUTOREGNSK 

RINT" "iLOCATE 41,13:PRINT P* 

, AB <<«<«<<<" 

69ø LOCATE 41,17:INPUT!L»:LOCATE 4:,17!P 

230 LOCATE 26,5iPRINT"1. OPLYSNINGER BEN 

RINT" "ILOCATE 41,17:PRINT Ls 

ZINFORBRUG" 

7øø LOCATE 1,25:INPUT "ER OPLYSNINGERNE 

24ø PRINT TAB(26)i"2. OPLYSNINGER OL1EFO 

KORREKTE 7 TAST J ELLER N"iS« 

RBRUG" 

710 IF S*="N" OR S*="n" THEN GOTO 59ø 

250 PRINT TAB(26)1"3. OPLYSNINGER REPARA 

720 BEN«(bt)=D*+K»*SPACE*(6-LEN(K»))+P»* 

TIONER" 

SPACE*(6-LEN(P*))+L* 

260 PRINT TAB(26)1"4. OPLYSNINGER FORSIK 

730 LOCATE 1,25:INPUT "ØNSKES FLERE INDT 

FING S. VAEGTAFGIFT" 

ASTNINGER 9 TAST J ELLER N "|S* 

270 PRINT TAB(26)S"5. OPLYSNINGER DIVERS 

74ø IF S*="J" OR S*="j" THEN GOTO 570 

E UDGIFTER" 

750 GOTO 2øø 

280 PRINT TAB<26)|"6. OPLYSNINGER SAMTLI 

76ø REM INPUTS OLIE 

GE UDGIFTER" 

770 ot=ot*l 

290 PRINT 

780 CLS:PRINT 

300 PRINT TAB(26)! "7. INPUT BENZINKØB" 

790 PRINT TABI22) 1 ">»»>>> ->> INPUTS OL 

i 310 PRINT TAB(26) i "6. INPUT 0LIEKBB" 

IE ««<«««" 

320 PRINT TAB(26)!"9. INPUT REPARATIONER 

800 LOCATE 34,5:PRINT"DATO 

** 

810 LOCATE 29,9:PRINT"KILOMETER 

330 PRINT TAR(75)!"1ø. INPUT FORSIKRING 

920 LOCATE 31,13.PRINT"PRIS KR.:" 

fc VAEGTAFGIFT" 

830 LOCATE 33,17:PRINT"LITER :" 

34ø PRINT TAB(25)("11. INPUT DIVERSE UDG 

84ø GOSUB 6030 

IFTER " 

65ø LOCATE 41,5:INPUT!D*:LOCATE 41,5|PRI 

350 PRINT 

NT" "iLOCATE 41,5:PRINT!D* 

360 PRINT TAB(25)1“12. SAVE DATA" 

86ø LOCATE 41,9:INPUT K»:LOCATE 41,9:PRI 

37ø PRINT TAB(25)i"13. LOAD DATA" 

NT" ":LOCATE 41,9:PRINT K« j 

380 PRINT 

87ø LOCATE 41,13:INPUT!F*:LOCATE 41,13:P | 

39ø PRINT TAB(29)!"FRIE BYTES "!FRE(ø>-4 

RINT" ":LOCATE 41,13:PRINT p* 

096 

880 LOCATE 41,17:INPUT!L*:LOCATE 41,17:P 

4øø LOCATE 1,25!INPUT "TAST ØNSKET NUMME 

RINT" "tLOCATE 41,17:PRINT L* 

R" I S* 

890 LOCATE 1,25:INPUT "ER OPLYSNINGERNE 

41ø IF S*="ø"THEN LIST 

KORREKTE 7 TAST J ELLER N"iS* 

420 IF S*="l" THEN GOTO 2930 

9øø IF S*="N" OR S*="n" THEN GOTO 780 

430 IF S*=' l 2"THEN GOTO 2540 

910 OLIE*(ot)=D*+K*»SPACE* <6-LEN(K*>>*P* 

440 IF S*="3"THEN GOTO 1840 

■"SPACE* (6-LEN (F'*) ) +L* 

450 IF S*="4"THEN GOTO 1520 

920 LOCATE 1,25:INPUT "ØNSKES FLERE INDT 

46ø IF S«="5"THEN GOTO 219ø 

ASTNINGER ? TAST j ELLER N "1 S* 

470 IF S*="6"THEN GOTO 4550 

930 IF S«="J” OR S*="j" THEN GOTO 760 

430 IF S*="7"THEN GOTO 570 

940 GOTO 200 

490 IF S*="8"THEN GOTO 760 

950 REM INPUTS REPARATIONER 

500 IF S*="9"THEN GOTO 950 

96ø rt=rt*l 

510 IF S*="lø"THEN GOTO 1140 

97ø CLSi PRINT 

52ø IF S*="11"THEN GOTO 1330 

980 PRINT TAB<22) i "»>>»>»» INPUTS RE i 

530 IF S*="12"THEN GOTO 5600 

PARATIONER ««««<<<" 

540 IF S*="13"THEN GOTO 5390 

99ø LOCATE 34,5:PRINT"DATO 

550 IF S*="K" OR S*="k" THEN GOSUB 5810 

løøø LOCATE 29,9:PRINT"KILOMETER 

• 

• 
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iølO LOCATL ;.1,1 -.PRJNI-Tf/Ib KR: i 
102© LOCATE 35,I7SPRINT"ART 
1050 G0GU8 tø:o 

1040 LOCATE 4! ,5lINPUT; D»lLOCA i i 41. "j.PR 

twi" "ii.mcaii 4i,S!ppiiwr:r>* 

10341 LOCATE 41,9| INPU1 i t:l i.C«li 4I.9.PR 
INT" ' : LOCATL *1,9: PP1NT i« 

1060 LOCATt 41.151 INKUI i P*: LIJl'AVt 4 1 . • ! : 
PRINT- ": LOCATE 41, l 1: F*t! NT P* 

1 O70 LOCATE 4 1. 1 7l INPUT 11 * 
liKN LOCATE 1.2S.INPUI "ER OPLYSNINGERNE 
KORR El TE - TAST J ELLER N“;S* 

1090 lf S*»"N" OR S*» n* THEN GOTO 760 

I 10© » l -1 =D* ■’ t SPACI.1. ' A-l.fcN :l ♦ • ' »P* 
»SPACE* <7- EN(P*i • ♦(* 

II lO LOCATt 1.25:INPUT "UN8KES f LENE INI) 

TASTNINGER ? TAST J ELLER N "sSt 

1120 IF 3*-"J" OR 5*‘-“}" OR S*- 1 ' THEN G 
OTO 930 

1 1 "O GOTCI 200 

1140 REN INPUTS FORSIKRINGER OG VUEGTAKB 
IFT 

1130 F-.=Ft.KI 
1160 CLS:PRINT 

1170 PRINT TABT 16)I' INPUTS FORS 

IKRING 00 VAEGTAF 01FT <<<<- 
11SO LOCATE 34,5:PRINT"DATO i 
1190 LOCATE 29, 9l PRINT "Kl LONE. 1 ER l” 

1200 LOCATE 31.I3lPR INF"PR IS kR.:" 

1210 LOCATE 18, 1 7i PRINT"FORS I► R. /VAEG F Af 
GIFT i ' 

1220 60SUB 6030 

1230 LOCATE 41.3|INPUT 10*1LOCATE 4|.3:PR 
INT" " i LOCATE 41,5lPRINT;D* 

1240 LOCATE 4l,9ilNPUr l*:LOCATE 41,9sPR 
INT" i LOCATE 41,9;PRINT ♦* 

1250 LOCATE 41, 13: INPUT s F'it; LOCATE 41,13: 
PRINT" "!LOCATL 41,UlPftlNT P* 

1260 LOCATE 41.17:INPUT IL*;LOCATE 41,17: 
PRINT" ": LOCA TE 41,17. PRIM 

1270 LOCATE 1,25!INPUT "ER OPLYSNINGERNE 
KORREKTE ? TAS I J ELLER N";fc>* 

1280 1F 3*=”N" OR S*“"n“ THEN GOTO 1160 
1290 FORS* (Ft) -O**! 1 * »SPACE* 16-LEN <1 «) )*P 
»»SPACE*(7-LEN(P*) >+L* 

1500 LOCATt 1,25:INPUT "ØNSKES FLERE IND 
TASTNINGER ? TA3T J ELLER W "5S* 

1310 IF S*-"J" OR S*="j" OR S*=“" THEN G 
OTO 1140 
1320 BOTO 200 

1330 REM INPUTS DIVERSE UDGIFtfR 
I34ø dt-dt*1 

1 350 r fi; PRINT 

1360 P*INT TAB 1201•" •>>>>>> DIVERSE U 

DGIFTE» <<^<- <<'" 

1370 LOCATE 34,Si PRINT’DATQ 

1300 LOCATE 29.ViPRlNT•KILOMETER I* 

1390 LOCATE 31,15:PR1NT"PRIS KR.i" 

!4ø0 LOCATE 35.17:PRINT"ART 
1410 GOSUB 6050 

1420 LOCATE 41,3:INPUTTD*iLOCATE 4l,5lPR 
INT" -ILOCATI 41,3 iPRINTiD* 

1430 LOCATE 41,9:1NPUT K*:LOCATE 41.9.FK 
INT" ":LOCATE 41,9.PRINT F* 

1440 LOCATE 41.13.INPUTiF*:LOCATE 41,13: 
PRINT" ":LOCATE 41,13.PRINT P« 

1450 LOCATE 41,17:INPUTIL* 

1400 LOCATt 1,23.INPUT "ER OPLYSNINGERNE 
KORREKTE -7 TAST J ELLER N":S« 

I47ø IF B*-"N" OR B*»-n" TMtN GOTO 135« 
1480 DI V* (dt) =D*"> »»SPACE* Té-LENTK*) )+P* 
♦ SPACE* !7-LEN<P*) 1 »l. * 

1490 LOCATE 1,25.1NPU" "ØNSKES FLERE IND 
TASTNINGER ? T AST J ELLER N "16* 

1500 IF S*="J" OR S*="j" OR S*-“' THEN S 
OTO 1330 
151ø GO I O 200 

1520 REM OPLYSNINGER FORSIKRINGER/VAtSTA 
FGIFT 


1330 Tor. = ø 
1548 CLS.PRINT 

1550 PRINT TABT IS) 1 11 >» OPLYSNINGER OM 
FORSIKRINGER V VAEGTAFGIFT <<«<" 

15*0 PRINT 

1570 PRINT TAB <1411 "DATCl" i TAB T24) t “KlLOM 
ETERS TAND"I TAB(44)»"KR"iTABT60Ii"ART" 
1580 PRINT 
1590 FOR t = l TO Ft 

1600 PRINT TABC13IIMID*(FORS*<t> ,t,6)iT 
PB(27>5MID*1F0R3*it) .7,6)1 TAB<42)5MID*< 
FORS*(t) ,!3,7)lTAB(60)iMID* <FORS* Tt! ,2 
«, 121 

1610 FORS = FORS * VAL(MID*(FORS*TT1 ,13 
,71) 

1620 NEXT 

1630 PRINT TABT 13)I"- 


1640 PRINT TABT42!JUSING ■»*#».«»";FORS 
1650 LOCATE 1,25:INPUT "ØNSKES UDSKRIFT 
TAST J ELLER N,KALKULATOR K"«S* 

1660 IF S*—"N" OR a*= *n“ THEN GOTO 200 
1670 IF S*="J“ OR S*-"j" THEN 1700 
1660 IF S*="K" OR S*»"k" THEN GOSUB 5B10 
169ø GOTO 1650 

1700 REM UDSKRIFT FORSIKRINGER VAEGTAFGI 

FT/FORSIKRINGER 

1710 GOSUB 5320 

1720 FRINT #8.TAB(15)1 ’>>>; OPLYSNINGER 
OM FORSIKRINGER 8. VAEGTAFGIFT «<<<" 
1730 PRINT48, 

1740 PRINT »S,TABT 14);"DATO"1 TAB<24)!"Kl 
LOMETERSTAND”i TAB(44)1"KR"I TAB(60)I"ART" 
1750 PRINTPØ, 

1760 FOR t=l TO Ft 

1770 PRINT »B.TAB(13MMID*<F0RS*<t) ,1,6 
)I TAB(27)SMID*(FORS*(t) .7,6)iTABT42)SMI 
C*(FORS*(t) ,13,7)5 TAB(60)TMID«(FORS*(t) 
, 20 , 12 ) 

1780 FORS = FORS * VAL(MID*(FORS*<T) ,13 
.7)) 

1790 NEXT 

1800 PRINT #8,TAB(13)1"- 


1810 PRINT #8,TAB(41)(USING "*,**».»«"SF 
ORS 

1B20 GOSUB 5360 
1830 GOTO 20ø 

1840 REM OPLYSNINGER OM REPARATIONER 

1850 CLS 

1860 REP - ø 

1870 WINDOW »1,1,80,2,4 

1880 PR INT« 1, TAB (IS) I > •»•>>>»> OPLYS 

NINGER OM REPARATIONER '.«<<«««" 

1890 PRINT«1, 

1900 PRINT»1,TAB <4)l"DATO"1TAB(14)!"KILO 
NETERSTAND"!TAB(34)s"KR"1 TAB 145)I"ART" 
1910 WINDOW «2.1,60,6,24 
1920 FOR t=i TO rt 

1930 PRINT «2,TAB(3)iMID*(REP*(t) ,1,6)1 
TAB(17)|MID*(REP*(t > ,7,6>1 TAB(32)I MID*< 
PEP*(t) ,13,71STABC45)iMID*(REP*(t) ,20. 
36) 

1940 REP « REP * VAL(MID*(REP*(t) ,13,7) 
) 

1950 NEXT 

1960 PRINT «2,TAB<131J"- 


1970 PRINT »2.TABT32)1USING "*»•«.#»"SRE 
P 

198ø WINDOW #3,1,80,25,25 
1990 INPUT *3, "ØNSKES UDSKRIFT 7 TAST J 
ELLER N,KALKULATOR K"!S* 

2000 IF S* - "N" OR S* = "n“ THEN GOTO 2 

øø 

2010 IF S*-"J" OR S*»"J" THEN 2040 
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2020 IF S*-"K" OR S*-"k” THEN GOSUB 5Blø 
2030 GOTO 1990 

2ø9ø REM UDSKRIFT REF'ARATI ONER 
2050 GOSUB 5320 
2060 REP-0 

2ø/ø PRINT#B, TAB(15) I ">>>>>>>>>>>> OPLYS 
NINGER OM REPARATIONER <<<<<<<<<<<<" 

2000 PRINT«B, 

2ø9ø F'RINT#8, TAB (14) i "DATO" i TAB <201 i "KIL 
OMETERSTAND"STAB<361 S "KR"lTAB(42lS"ART" 
2100 PRINT#B, 

2110 FOR t-1 TO rt 

2120 PRINT #B,TAB(13) 8 MID*(REP*(t> ,1,6) 

I TAB<231 8 Ml D*(REP* <t) ,7,6)1 TAB(32) SMID* 
(REP* <t> , 13,7) S TAB(42)SMID* <REP*(t > ,20 
,36) 

2130 REP - REP * VAL (MID*(REF #(t) ,13,7) 

) 

214ø NEXT 

2150 PRINT #8,TAB (13) S" - 


2T60 PRINT #8. TAB <32) S USING "####. ## ”; RE 
P 

2170 GOSUB 5360 
2180 GOTO 200 

2190 REM OPLYSNINGER OM DIVERSE UDGIFTER 
2200 CLS 
2210 DIV-ø 

2220 WINDOW »1,1,80,2,4 

2230 PRINT#1,TAB(13)S ”>>>>>>/>>>>> OPLYS 
NINGER OM DIVERSE UDGIFTER <<<<<<<<<<<< • 
2240 PRINT#1, 

2250 PRI NT#1,TAB(4)S"DATO"S TAB<14)S"KILO 
METERSTAND"5 TAB(34)S"KR"S TAB(45)S"ART" 
2260 WINDOW #2,1,80,6,24 
2270 FOR t-1 TO dt 

2280 PRINT #2,TAB <3> 8 MID*(DIV*(t) ,1,6)| 
TAB(17)8MlD*(DIV*(t> ,7,6)S TAB(32)I MID*< 
DIV*<t) ,13,7)STAB <45)S MID* < DI V* <t) ,2ø, 
36) 

2290 DlV = DIV*VAL(MID* <DIV* < t ) ,13,7)) 
2300 NEXT 

2310 PRINT #2,TAB(13)S“ - 


2320 PRINT #2,TAB(32)S USING "####.##"8DI 
V 

2330 WINDOW #3,1,80,25,25 
2340 INPUT #3, "ØNSKES UDSKRIFT ? TAST J 
ELLER N,KALKULATOR K"SS# 

2350 IF S* = "N" OR S* - "n" THEN GOTO 2 
øø 

2360 IF S*=”J" OR S*="J" IHtN 2390 
2370 IF S*="K" OR S*="k" THEN GOSUB 58 lø 
2380 GOTO 234ø 

2390 REM UDSKRIFT DIVERSE UDGIFTER 
2400 GOSUB 5320 
2410 DIV-ø 

2420 PRINT#8,TAB(13)S">>>>»>>>>» OPLYS 
NINGER OM DIVERSE UDGIFTER <<<<<<<<<<<<" 
2430 PRINT#8, 

2440 PRINT#8,TAB(14);"DATO"S TAB <2ø) I "KIL 
OMETERSTAND" S TAB(36)5"KR"S TAB(42)J"ART" 
245ø PRINT#B, 

2460 FOR t=l TO dt 

247ø PRINT #8,TAB(13)8 MID*(DIV* <t) ,1,6) 
I TAB(23)SMID*(DIV*(t) ,7,6)S TAB(32)SMID* 
(DI V*(t) ,13,7)8 TAB(42)S MID*(DIV*(t) ,20 
,36) 

2480 DIV = DIV*VAL(MID*(DIV*(t) ,13,7)) 
2490 NEXT 

2500 PRINT #8,TAB(13)S“ - 


251ø PRINT #8,TAB(32)8USING "####.##";D1 
V 

252© GOSUB 5360 
2530 GOTO 200 


254ø REM OPLYSNINGER OM DLIEKOB 
2550 CLS 

2560 OL IE—øs KTLI—ø!OLL—ø 
2570 WINDOW #1,1,80,2,4 

2580 PRINT# 1 , TAB (IB) 8 ">>»>>>>»>. OPLYS 
NINGER OM OLIEKøB <<<-;«<<<■:«" 

2590 PRINT#1, 

2600 PRINT#1, T AB(11)8“DATO"8 TAB(19)8"KIL 
OMETERSTAND"!TAB(37)i“KR"8 TAB(45)8"LI TER 
"8 TAB(56)i"KRONER/LITER" 

2610 WINDOW #2,1,80,6,24 
2620 FOR t = l TO at. 

2630 KRLY-VAL (MID*(OLIE* ( t) ,13,6))/VAL( 
MID*(OLIE*(t) ,19,5)) 

2640 PRINT #2,TAB(10)8 MID*(OLIE*(t) ,1.6 
)8 TAB(22)8MID*(OLIE*(t) ,7,6)I TAB(35)8 MI 
D*(OLIE*(t) .13,6)I TAB(46)iMID*(OLIE*(t) 

,19,5)8TAB<59)8ROUND(KRLY,2) 

2650 OLIE = OLIE+VAL(MIDt(OLIE* < t) ,13,6 

2660 OLL=OLL*VAL(MID*(OLIE*(t) ,19,5)) 
2670 NEXT 

268« PRINT #2,TAB<9)8" - 


269ø PRINT #2.TAB(35)8 OLIE8 TAB(46) 8 OLL 
27øø WINDOW #3,1,80,25,25 
2710 INPUT #3, "ØNSKES UDSKRIFT ■» TAST J 
ELLER N,KALKULATOR K "8S* 

2720 IF fa* = “N" OR S* - "n" THLN GOTO 2 
øø 

2730 IF S«="K" OR S*="k" THEN GOSUB 5810 

2740 IF S*="J" OR S*="J" THEN 2760 

275ø GOTO 271ø 

2760 REM UDSKRIFT OLIEKøB 

2770 GOSUB 5320 

2780 PRINT#B,TAB< 18) I “»»»>»»> OPLYS 
NINGER OM OLIEKøB <<<<<<<<<<<" 

2790 OLIE=øs KTLI-ø:OLL-ø 
2800 F'RINT#8, 

281ø PRINT #8,TAB(11)8"DATO"8 TAB(19) 8 “Kl 
LOMETERSTAND"8 TAB(37)8"KR"8 TAB(45)8"LITE 
R"I TAB(56)|"KRONER/L ITER" 

2820 PRINT#B, 

2830 FOR t=t TO ot 

2840 KRLY-VAL(MID*(OLIE*(t) ,13,6))/VAL( 
MID*(OLIE*(t) ,19,5)) 

2850 PRINT #8,TAB(lø) I MID*(OLIE*(t) ,1,6 
)8 TAB(22)iMID*(OLIE*(t) .7,6)8 TAB(37)8MI 
D*(OLIE*(t) ,13,6) 8 TAB(48)8MID*(OLIE*(t) 

, 19,5)8 TAB(59)SROUND(KRLY,2) 

2860 OLIE = OLIE+VAL(MID*(OLIE*<t> ,13,6 
) ) 

2870 OLL=OLL*VAL(MID*(OLIE*(t) ,19,5)) 
2880 NEXT 

2890 PRINT #B,TAB(9) 8" - 


2900 PRINT #8, TAB(36) 8 OLIES TAB <47)IOLL 
2910 GOSUB 5360 
2920 GOTO 200 

2930 REM OPLYSNINGER OM BENZINKØB 
2940 CLS:PRINT 

2950 PRINT TAB(18) 8 "»>»»>> OPLYSNINGE 
R OM BENZINKØB <««««" 

2960 LOCATE 3ø,3s INPUTS"INDTAST AAR" 8 AA 

R* 

2970 LOCATE 30,3lPRINT" 

LOCATE 38, 3: PRINT "19" 8 AAR* 

2980 PRINT 

2990 PRINT TAB (8)8 "MAANED" i TAB(18)8"KØRT 
E KILOMETRE" 8 TAB(37) i "LITER"8 TAB(46) 8 "KM 
.PR.LI TER "8 TAB(65) 8 "KRONER" 

3000 PRINT TAB(7)8"- 


3ølø KRT=ø:X=ø:KIT-Ø:LBT=ø:K3-ØIKM-Ø:Kl¬ 
øs K2-0 

3020 MD*="øl" 
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3030 AARMD*=AAR*»MD* 

3700 PRINT68,:PRINT#B, 

3040 ’F VAL(AARMD*)=64øl THEN K 1=67500 

371ø PRINT48,TAB 18)S"MAANED"!TAB(18)5"Kø 

305- )F VAL (AARMD*) =8501 THEN Kl=93300 

RTE KILOMETRE"i TAB(37)1"LITER";TAB<46)I" 

306*' • sø 

KM.PR.LI TER" 1 TAB «65)!"KRONER" 

3ø7- •R=ø:LB=ø 

3720 PRINl ttS. TAB (7) ! "- 

30b- -OR a=l TO bt 


309- :f VAL(AARMD*)=VAL(MID*(BEN*(a) .1, 

-M 

41 -IN 3110 ELSE 3180 

3730 KRT=øs X=øsKIT=øiLBT=0!K3=ø:KM=øiKl = 

31—* -- 1NT AARMD* 

ø:K2=ø 

31 AOl THEN GOTO 3130 

3740 MD*="øl" 

311- =K 1+VAL(MID*(BEN* ( a! ,7,6)) 

3750 AARMD*=AAR*+MD* 

31 •' -’VAL (MID*(PEN*(a) ,7,6>> 

3760 IF VAL(AARMD*)=8401 THEN K1=67500 

314** l'=LB+VAL (Ml D* (BEN* (a) ,19,5)) 

3770 IF VAL(AARMD*)=8501 THEN Kl=933øø 

315- •R»KR*VAL( MID* < BEN* <a) ,13,6)) 

3780 t=ø 

31*0 •3*K2-K1 

3790 KR=ø:LB=ø 

31 . M-K3/LB 

38øø FOR a=l TO bt 

318- NEXT 

3810 IF VAL(AARMD*)=VAL <MID«<BEN*(a) .1. 

31VO ft*l 

4)) THEN -J820 ELSE 3890 

3200 GOSUB 3520 

3820 IF »<>t THEN 3840 

3210 I RINT TAB <8> |v*S TAB(22) i K3;TAB<35); 

3B30 K1=K1*VAL(MID*(BEN*<a) ,7,6)) 

LB: TAB 149) , ROUND(KM,2) iT AB < 6 3)fUSlNG «, 

3840 K2=VAL(MID*(BEN* <a) .7,6)) 

«tt«. m iKR 

3830 LB=LB+VAL(MID*(BEN*(a> ,19,5)) 

3220 DIA(t)-K3 

3B6ø KR=KR+VAL(MI0*(BEN*(a) ,13,6)) 

3230 IF DIA <t)>M THEN M=DIA <t) 

3870 K3-K2-K1 

3240 X=X+1 

3B80 KM=K'3/LB 

3250 KIT=KIT+K3 

3890 NEXT 

3260 K3=ØiKM=øiKl=K2 

3900 t=t+l 

3270 AARMD*=STR*<VAL<AARMD*>+l> 

3910 GOSUB 3520 

3280 MD*=STR*(VAL(MD*)+1) 

3920 PR I NT #0, T AB (8) ; v*;TAB(22) IK3;TAB(35 

3290 f RT=KRTKKR 

)iLBiTAB(49)iROUND(KM,2)iI MS (63)iUblNb “ 

3300 LBT=LBT+LB 

#,###.##"!KR 

3310 IF X<>12 THEN GOTO 3070 

3930 X=X*1 

3320 PRINT TAB < 7)1"- 

3940 KIT=KIT+K3 

------- 

3950 K3=øsKM=øiKl=K2 


3960 AARMD*=STR*(VAL(AARMD*)Kl> 

3330 PRINT TAB < 22) S KlT!TAB(34) ; LBT i TAB(4 

3970 MD*=STR*(VAL(MD*)* 1) 

9) 1 ROUND <KIT/LBT , 2) i TAB <62) i KRT 

3980 KRT=KRTKKR 

3340 LOCATE l,25iINPUT "FOR OPLYSNINGER 

3990 LBT-LBTKLB 

OM MAANEDSKOB TAST NR.,KOPI C.MENY M.GRA 

4000 IF X<*12 THEN GOTO 3790 

FK G,KALKULATOR K"|S* 

4010 PRINTH8,TAB(7)!" - 

3350 IF S*="M" OR S*="m" THEN 20ø 


3360 IF S*="C" OR S*="c" THEN 3660 

-" 

3370 IF S*="G“ OR S*="g" THEN 4330 

4020 PRINT *8,TAB(22)S KIT;TAB(34);LBT;TA 

3380 IF S*="K" OR S*="k" THEN GOSUB 5810 

B<49);ROUND(KlT/LBT,2)(TAB(62);USING "0# 

!GOTO 334ø 

,«««.««":KRT 

3390 IF VAL<S*)=1 THEN N*="JANUAR" 

4030 GOSUB 536ø 

3400 IF VAL<S*)=2 THEN N*="FEBRUAR" 

4ø40 GOTO 3340 

3410 IF VAL(S*)=3 THEN N*="MARTS" 

4050 REM MAANEDSKøB 

3420 IF VAL«S*)=4 THEN N*="APRIL" 

4ø6ø CLS 

3430 IF VAL (S*) =5 THEN N*=''MAJ" 

4070 PRINT TAB (23) ;"»»> BENZINKØB I "i 

3440 IF VAL<S*)=6 THEN N*="JUNI" 

Nt;" 19";AAR*;" <<<<<" 

3450 IF VAL < S*)=7 THEN N*="JULI" 

4ø80 PRINT 

3460 IF VAL <S*) =B THEN N*=''AUGUST" 

4090 PRINT TAB(9)!"DATO"i TAB(19) ; "KILOME 

3470 IF VAL «S* > =9 THEN N*“"SEPTEMBER" 

IfcKBIAND") 1 Ab(38)i"LIrER"«TAB(5ø>;"KRONE 

3400 IF VAL(S*)=lø THEN N*="OKTOBER" 

R*;TAB(61)I"KRONER/LITER" 

3490 IF VAL(S*)=11 THEN NS="NOVEMBER" 

4:øø PRINT TAB(7)!"- 

3500 IF VAL(S*)=12 THEN N*="DECEMMBER" 

------- 

3510 GOTO 4050 

-" 

3520 REM GOSUBRUTINE FOR MAANEDSUDSKRIVN 

4:lø FOR T=1 TO bt 

ING 

4.20 IF MID*(BEN*(T) ,1,4)=AAR*kS* THEN 

3530 IF t=l THEN v*»"01.JAN." 

4:30 ELSE 4150 

3540 IF t=2 THEN v*="ø2.FEB." 

4:30 KRLT=VAL(MID*(BEN*(T) .13.6))/VAL<M 

3550 IF t=3 THEN V*="03.MAR." 

ID*(BEN*(T) .19,5)) 

3560 IF t=4 THEN v*="04.APR." 

4140 PRINT TAB(8);M1D*(BEN*(T) ,1,6);TAB 

3570 IF t“5 THEN v*="ø5.MAJ." 

(22)!MID*!BEN*(T) ,7,6);TAB(38);MID«(BEN 

35B0 IF t=6 THEN v*="06.JUN." 

*:T) ,19,5);TAB(5ø> SMID*(BEN*(T ) .13,6); 

3590 IF t=7 THEN v*="07.JUL." 

TAB(65)iROUND(KRLT,2) 

3600 IF t=8 THEN v*="ø8.AUB." 

4150 NEXT T 

3610 IF t»9 THEN v*=“09.SEP." 

4160 LOCATE 1,25:INPUT "ØNSKES UDSKRIFT 

3620 IF t”10 THEN v*="iø.OKT." 

TAST C, MENY TAST M";Z* 

3630 IF t=ll THEN v*="ll.NOV." 

4)70 IF Z*="M" OR Z*="m" THEN 200 

364ø IF t=12 THEN v*="12.DEC." 

4180 IF Z*="C" OR Z*="c" THEN 42øø 

3650 RETURN 

4)90 GOTO 4160 

3660 REM UDSKRIFT AF OPLYSNINGER OM BENZ 

42øø REM UDSKRIFT AF PENZINKOB I MAANED 

I NKØB 

4210 GOSUB 5320 

3670 GOSUB 5320 

4220 PR I NT »8, TAB (25) i " :•>)■ BENZINKØB I 

3680 PRINT *8, TAB <18) ; M >>>»>>>> 0PLYSN1 

“ ;N*i " 19" ; AAR*! " <<<<<•' 

NBEfi OM BENZINKØB «««<<<" 

4230 PRINT^O, 

3690 PRINT#8,TAB(38) !" 19"5 AAR« 

4240 PRINT»8,TAB<9);"DATO"1 TAB(1911"KILO 

• 

• 
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METERSTAND "1 TAB (30) ; "U TER" I TAB (50) ; "KRD 

4770 IF S*—THEN KRR=KRR*VAL (MID* (REP 

'JER" i TAB <61) : "KRONER/LITER" 

*(N) ,13,6)) 

4250 PRINT#8.TAB(7I|" --- 

4780 IF S«= MID*(REP*(N) ,1.2) THEN KRR- 


KRR*VAL(MID*(REP*(N) ,13,6)) 


4790 NFXT N 

426ø FOR T=1 TO tit 

4800 FOR N=1 TO tt 

4270 IF MID*(BEN* < T) ,1,41=AAR«+S* THEN 

4810 IF S*=" A ” THEN KRF-KRF-VAL (MID* (F i 1 

428ø ELSE 4300 

S*(N) ,13,6)) 

42Bø KRLT—VAL (MID# (BEN# (T) , 13,6) ) /VAL <ti 

482ø IF 3*- MID* (FORS* (N) .1,2) TI€N . 

ID*(BEN*(T) ,17.5)) 

-KRF+VAL(MID*(FORS*<N> ,13,6)) 

4290 PR 1 NT»8,TAB(0)I MID*(BEN*(T) ,1.6)51 

4030 NEXT N 

AB(22)iMID* < BEN* <T) ,7,6)S TAB(38)IMID*(B 

4840 FOR N= 1 TO Ot 

EN*(TT ,19,5>|TAB<5«Mt11D*<BEN*(T) .13.6 

4050 IF S*=" " THEN KRA—tRA+VAL(MID* 

! 1 1 TAB (65) i ROUND (KRLT,2) 

*<N) ,13,6)) 

4300 NEXT T 

4860 IF VAL (S*> * VAL(MID*(DI V*(N) 

4310 80SUB 5360 

THEN KRA=KRA-VAL <MID*(DIV*(N) ,13.6 

4320 GOTO 200 

4070 NEXT N 

4330 REM SØJLEDIAGRAM 

4880 KR-KRB‘1 RO+KRR+KRA+KRF 

4340 CLS 

4B90 IF S*=" " THEN KM-VAL(MID*(BEN* :• 

4350 MODE 1 

,7,6))—VAL(MID* < BEN*(1> .7.6)) 

4360 ORIGJN 90.Sø 

4900 IF S*="83" THEN KM-67500-VAL(MID*■B 

4370 PRINT"GRAFISK FREMSTILLING AF KORTE 

EN*(1) ,7,6)) l 

KILOMETRE" 

4910 IF S*«"84" THEN KM=9330ø-675øø 1 

4380 LOCATE 18,2:PRINT"19";AAR* 

4920 IF S*="85" THEN KM-VAL(MID*(BEN* M 

4390 LOCATE 9,23l PRINT "JFMAMJJA 

) ,7,6))-933øø i 

S 0 N D" 

4930 LOCATE lø, 6: PRINT"BENZIN M 5 TAB(25 : 

4400 FOR q= 1 TO 12 

LITER";TAB(32)5USING "#,###.#"ILB 

! 4410 y = DIA(q)/M*300 

4940 LOCATE 50.6:PRINT"KR. "IUSING KM.« 

4420 GOSUB 4450 

##.»#"1KRB 

4430 NEXT q 

4950 LOCATE lø,8:PRINT"OLIE" 1 TAB(25) ("L 1 

4440 LOCATE 10,25 :INPUT"TAb1 M FOR MENV 

TER" ; TAB (32) IUSING *14#. #" ; LO 

S*: GOTG 200 

4960 LOCATE 58,8:PRINT"KR. "iUSING "#«.« 

4450 FOR p =ø TO y 

##.##" 1 KRO 

4460 PLOT 32*q,p 

4970 LOCATE lø,løiPRINT"RERARATIONER" i TA 

4470 DRAWR 30,0,2 

B (58) ; “KR. "IUSING "##,###.##"JKRR 

1 4480 DRAWR lø,lø,3 

4980 L8C-ATE- tø, 12: PR i NT “VE DL i GEMOL DEL SE" 

4490 NEXT p 

1 TAB(58)1"KR. "IUSING "##,###.#»"!KRA 

45øø FOR p=l TO 10 

4990 LOCATE 10,14:PRINT"FORSIKRINGER OG 

4510 PLOT 32*q+p,y+p 

VAEGTAFGIFT"1 TAB(58)1"KR. "IUSING "*•.■« 

4520 DRAWR 32,0,1 

#.##"!KRF 

4530 NEXT p 

5000 PRINT TAB(58) 1" -" 

4540 RETURN 

Sølø PRINT TAB(lø);"SAMTLIGE DRIFTSUDGIF 

4550 REM SAMLEDE UDGIFTER 

TER" 

4560 CLS:PRINT 

5ø2ø LOCATE 50. 16: PRINT "KR. "IUSING '<•*. 

4570 KRB-ø: LB-øiKRO-ØiLO-øi KRR-øtKRF-ø: K 

###.##"1KR 

RA=ø 

5030 PRINT 

45B0 PRINT TAB (22) ;••»»»>>> SAMLEDE UD 

5040 PRINT TAB(22)I"IALT KØRTE KILOMETRE 

GIFTER «««<«■• 

: "IUSING •’###,###"|KM 

4590 LOCATE 11,4: INPUT "INDTAST ØNSKET 

5050 PRINT TAB(22) 1 "IALT KR.PR.KILOMETER 

AAR,EKS. ’85‘, ØNSKES SAMTLIGE AAR TAST 

i "iUSING "##.##" 1 ROUND (KR/KM, 2) 

.. ;S , 

5060 PRINT TAB(22)1"KM. PR. LITER BENZIN 

46øø LOCATE 11,4:PRINT" 

: "IUSING "##.##"1ROUND(KM7LB,2) 


5070 PRINT TAB(22)I"KR. PR. 1 I TER BFN7IN 


: "IUSING "##.»#”IROUND(KRB7LB,2) 

4610 IF S*="~“ THEN X*="ALLE AAR" 

5080 LOCATE 1,25:INPUT "ØNSKES KOPI TAST 

4620 IF S«="03" OR S*="84" OR S*="85" OR 

C, MENV TAST M,KALKULATOR K"|S* 

S*="86" OR S*="97" THEN X*="19"+S* 

5090 IF S*="M" OR S*="m" THEN 2øø 

4630 LOCATE (Bø-LEN(X*))72,4:PRINT X* 

51øø IF S*="C" OR S*="c" THEN 513ø 

4640 FOR N=1 TO bt 

5110 IF S«="K" OR S*="k" THEN GOSUB 5810 

4650 IF S*-"-'" THEN KRB=KRB+Vfl|_ (MID* (BEN 

5120 GOTO 5000 

*(N) ,13,6)) 

5130 REM UDSKRIFT AF SAMTLIGE UDGIFTER 

4660 IF S*="'“" THEN LB-LB+VAL(MID*<BEN*< 

5140 GOSUB 5320 

[ N) ,19,5)) 

5150 PRINT#B, TAB (22) 1 ">>»»>>> SAMLEDE 

4670 IF S*= MID*(BEN*(N) ,1,2) THEN KRB« 

UDGIFTER <«<«<«" 

KRB+VAL(MID*(BEN*(N> ,13,6)) 

5160 PRINT#0,TAB 1(80—LEN( X*) )72) 1 X* 

468ø IF S*= MID*(BEN*(N) .1,2) THEN LB=L 

5170 PRINT*8,:PRINT#8, 

B*VAL(MID*(BEN*(N) ,19,5)) 

5180 PRINT#8,TAB(lø)I"BENZIN"I TAB(35) I "L 

4690 NEXT N 

ITER: "|LB|TAB(58)i"KR. "iUSING "##.###. 

47øø FOR N-l TO ot 

##"1KRB 

4710 IF S*-"'-" THEN KRO = KRO+VAL (MID* (0 

5190 PRINT#8,TAB(lø)!"OLIE"1 TAB(35)I"LIT 

LXE*(N) ,13,6)) 

ER: "|L0|TAB(58> i "KR. IUSING "##,###.■■ 

4720 IF S*-"' 1 " THEN LO-LO+VAL(MID*<OLIE* 

" | KRO 

CN> ,19,5)) 

5200 PRINT#B,TAB(lø>i"REPARATIONER" 1 TAB( 

4730 IF S*« MID*(OLIE*(N) ,1,2) THEN KRO 

58)i"KR. "IUSING "##.*#*.##"iKRR 

“ KRO+VAL(MID*(OLIE*(N) ,13,6)) 

5210 PR1NT#8.TAB <1ø)1"VEDLIGEHOLDELSE"iT 

4740 IF S*= MID*(OLIE* (N) ,1,2) THEN LO- 

AB(50)|"KR. "IUSING "##,###.##"|KRA 

LO-VAL(MID*(OLIE*(N> ,19,5)) 

5220 PRINT#8,TAB(10)i"FORSIKRINGER OG VA 

4730 NEXT N 

EGT AFGIFT"|TAB <581 5"KR. "IUSING "#*,###. 

4760 FOR N-l TO rt 

##"|KRF 

• 

• 
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5230 PFINT#8,TAB(58)("-" 

5240 PFINT#B,TAB(lø> ( "SAMTLIGE DRIFTSUDG 
IPTER" |TAB(58)i"KR. "(USING "#*,#*#.##"( 
KR 

5250 PFINT#0, 

5260 PFINT48, TAB(lø) i "IALT KORTE KILOMET 
RE: "(LSI NG "###,###"(KM 

5270 PFINT48, TAB(lø)|"IALT KR. PR. KIlOMET 
ERs "lLSING "##.##"(ROUND(KR/KM,2) 

5280 PFINT#8,TAB(lø) ) "KM. PR. LITER BENZ 
IN: "(LSING "##.(•#"( ROUND (KM/LB,2) 

5290 PF INT*8,TAB(10) ( "KR. PR. LITER BENZ 
IN: "(LSING "##.(*#"{ROUND (KRB/LB, 2) 

5300 GCSUB 5360 
5310 GOTO 2øø 

5320 REM SUBRUTINE FOR UDSKRIFT 

5330 PFINT#8,TAB(IØ) ("*.«***•***.***••** 

**" 

5340 PFINT48,iPRINTUB, 

5350 RETURN 

5360 PFINT4B, iPRINT#8, 

5370 PF I NT 48,T AB(1 ø>("******•*•********* 


**" 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 


RETURN 

REM LOADNING AF VARIABLER 
CL S 

OFENIN ("AUTO") 

INPUT #9,bt.ot,ft,dt.rt 
FCR n=l TO bt 
INPUT #9,BEN*(n> 

NEXT n 

FCR n=l TO ot 
INPUT #9, OLIE'* (n) 

NEXT n 

FCR n=l TO rt 
INPUT »9,REP*(n) 

NEXT n 

FCR n= 1 TO dt 
INPUT #9,div*(n) 

NEXT n 

FCR n=l TO ft 
INPUT #9,F0RS*(n> 

NEXT N 
CLOSEIN 
GCTO 200 

REM SAVEING AF VARIABLER 
CLS 

OFENOUT ("AUTO") 


5630 PRINT# 1 ?,bt,ot,ft,dt.rt, 

5640 FOR n=l TO bt 
5650 PR INT#9.BEN*( n) 

5660 NEXT n 

5670 FOR o-l TO ot 
5680 PRINT »9.OLIE* (n> 

5690 NEXT n 

5700 FOR n=l TO rt 

571 * -PR 1NT#9 r R€P*f IT) 

5720 NEXT o 

5730 FOR n=l TO dt 

5740 PRINT49, di v* (o) 

5730 NEXT n 

5760 FOR o=l TO -ft 

5770 PRINT#9,FORS* (n > 

5780 NEXT o 
5790 CLOSEOUT 
58øø GOTO 2øø 

5810 LOCATE 1,1 s PRINT STRING* (S.50, " " ) 
5820 LOCATE 1.1:INPUT "kalkulator kl ar"i 

a* 

5830 n = LEN(a*) 

5840 FOR t=l TO n 


5650 

b*= MID*(a® 

t, 1) 


5860 

IF 

b* 

= 


THEN 

5920 

5870 

IF 

b* 

= 


THEN 

5930 

5BBø 

IF 

b* 

■ 

•• 4.11 

THEN 

5940 

5890 

IF 

b* 

«* 


THEN 

595ø 

39øø 

IF 

b* 


" A " 

THEN 

5970 


5910 NEXT t 

5920 GOSUB 5960!e= c»d:GQTO 5980 

5930 GOSUB S96øie= c/d:GOTO 5980 

5940 GOSUB 5960!e= c*d:GOTO 5980 

5950 GOSUB 5960!e= c-di GOTO 5980 

5960 c=VAL(MID*(a*,1,t — 1)):d=VAL(MID*(a* 

,t+l,n>)i RETURN 

5970 GOSUB 5960!e= c'd:GOTO 5980 
5980 LOCATE 20+LEN(a*) , 1 ! PRINT"=" {e 
5990 LOCATE 23+LEN<a*>*LEN(STR*<e>>,1 ! IN 
PUT" ønskes flere beregninger j/n"(st 
6øøø IF S*= “J" OR S*="j" THEN 5810 ELSE 
6010 

6010 LOCATE 1 .1 s PRINT STRING* (!<5ø, " ") 
6020 RETURN 

6ø3ø LOCATE l,25iINPUT "ØNSKES KALKULATO 
R ? TAST J ELLER N"(S* 

6040 LOCATE 1,25(PRINT" 


6050 IF S*="J' 
6060 RETURN 


OR 5*="j" THEN GOSUB 5810 


»»>»» OPLYSNINGER OM BENZINKØB <<<<<<<<< 

1984 


MAAIMED 

KORTE KILOMETRE 

LITER 

KM.PR.LITER 

KRONER 

01.JAN. 

1324 

142.3 

9.3 

839.77 

02.FEB. 

1565 

151.9 

10.3 

917.67 

03.MAR. 

2147 

208.6 

10.29 

1,259.05 

04.APR. 

2144 

209.5 

10.23 

1,204.30 

05.MAJ. 

2955 

290.9 

10. 16 

1,760.31 

06.JUN. 

2053 

152.3 

13.48 

886.80 

07.JUL. 

3656 

346.4 

10.55 

1,978,85 

OB.AUG. 

1635 

150.5 

10.86 

92B.30 

09.SEP. 

2436 

255 

9.55 

1,499.99 

10.0KT. 

1513 

155.3 

9. 74 

875.60 

U.NOV. 

2223 

219.8 

10.11 

1,323.74 

12.DEC. 

2080 

207.3 

10.03 

1,136.30 


25731 

2489.8 

10.33 

14,610.68 
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Softwarekonkurrencen 


Vinder denne gang bliver CLAUS B. JENSEN, Blåbærvej 5, Alslev, 6800 Varde med sit program DRAW, 

Der er tale om et Screen-design program, der sætter dig i stand til at lave forskellige nforsider« til dine 
programmer. De billeder du laver, kan SAVEs og bruges i andre sammenhænge. 

Programmet er menustyret og selvforklarende, men her er et par yderligere oplysninger: 

Programmet fylder 9.5K, men med maskinkoden og en ekstra lagring af skærmen ved adresse 22400 
lægger det beslag på næsten 26K. 

Hvis programmet ved et uheld BREAKes, kan det startes igen ved at skrive: GOSUB 1020:G070 190 
Brug endelig ikke RUN, da du så sletter alle variabler. 

Hvis du vil LOADe en skærm, der tidligere er lavet med DRAW, skriver du: LOAD"! (prg.navn)", 59152. 

Cursoren styres med piltasteme. Hvis du kombinerer pilene med SHIFT, vil det give de mellemlig¬ 
gende 4 retninger. Hvis du kombinerer en pil med CTRL-tasten, vil hele billedet scrolle i pilens retning. 


21© ’DRAM TIL AMSTRAD CPC 464-AF CLAUS S 
.JENSEN 30.12.84 
20 GOSUB 1030 

30 CLS: MODE 2: PEN 1 i BORDER 13 
4ø LOCATE 20,1 1 PRINT"CPC 464 Draw",CHR»: 
22> ♦CHR* (li!LOCATE 20,1:PRINT STRING*(12 
,CHR*(95)),UMK*(22>+UHR*(ntm) 

Sø ZONE 4ø 

60 PRINT:PRINT"’S' .. .SKIFT PLOT STEP","’ 
I’... SKIFT INK FOR EN PEN","' P’ ... SKIFT 
CURSOR PEN","’M’...SKIFT MODE <ø,l,2>"," 
B' ... SKIFT 

BORDER","’Y’...SKIFT SPEED INK" ," ’F ' ... F 
ILL" , “’H’...VIS DENNE LISTE" ," 1 C'...CIRK 
EL","’Z’...SKIFT PLOT-MODE (0,1, 2,3)", 

70 PRINT"’T’...TEXT-MODE" , D’...DRAW"," 
’R’.•■ DRAWR","* X *...PLOT","‘V’ .. . PLQTR" , 
”'E’. .. ELLIPSE","'W'...SKIFT TEXT-MODE i 
NOR OR TRANS 

VIS NOGLE VIGTIGE VARIABLE","’ 
.'...SAVE SKAERM",LOAD SKAERM",“’ 
COPY’...MOVE-MODE, STOPPET MED COPY", 

80 PRINT"’L’... PRINT STRENG VED CURSOR-P 
OSITION", 

90 PRINT: PRINT! "MERE INFORMATION (ENTER/ 
N) " 

100 IF INKEY(46)=0 OR INKEY(46)=32 THEN 
170 

llø IF INKEY(13)=ø THEN 120 ELSE 100 
120 CLS:PR I NT“NAAR DU HAR ’FILL’ED ET AP 
tAL, SKAL DU TRYKKE PAA EN KNAP:"!" - 0’ S 
LETTER DET FYLDTE AREAL OG ENHVER ANDEN 
TAST BEHOLDE 

R DET. ”,, "DRAW-MODE 0 ER DET MODE SOM AM 
STRAD NORMALT KØRER I. DEN PLOTTER OVER 
ALT ANDET." 

130 PRINT"DRAW-MODE 1 ER DET MODE HVOR F 
EN BLIVER PAPER OG PAPER TIL PEN",,"DRAK 
-MODE 2 ER DET MODE HVOR KUN PEN PAAVIRK 
ES, PAPER IK¬ 
KE"! 

135 PRINT"DRAW-MODE 3 ER DET MODE HVOR K 
LN PAPER AENDRES, PEN IKKE."!"MOVE-MODE 
ER ET MODE SPECIELT TIL AT BEVAEGE SIG R 
LNDT PAA SKA 

ERMEN. "i "INTET F’AA VIRKES I MOVE-MODE"! 

I4ø PRINT"MOVE-MODE STOPPES MED ’COPY’, 
CG DEN ENESTE KOMMANDO I MOVE-MODE IS FI 
LL."I"STOP TEXT-MODE MED ’TAB’»’CTRL’"i" 
NAAR DU HAR 

STOPPET TEXT-MODE KAN DU TRYKKE ’Ø', HVI 
S DU VIL SLETTE DET SKREVNE." 

150 PRINT"TRYK PAA ENTER FOR AT FORTSAET 
TE ELLER BEGYNDE" 

160 WHILC XNKCY(10> — 11 WEND 

170 IF ret-1 THEN RETURN ELSE 180 


1BØ CLS:PRINT CHR*(23)+CHR*(1) i INK 1,1 
19ø PLOT X,y : DRAW X*5,y +5: PLOT x,y:DRAW 
x+5,y-5:PLOT x.yiDRAW x-5,y+5sPLOT x,y:D 
RAW x-5,y-5 

2øø a*=INKEY*:IF a*»"" THEN 2øø 
210 PLOT x,y i DRAW x+5,y+5:PL0T x,y:DRAW 
x*5, y-5: PLOT x , y:DRAW x-3,y+3:PLOT x,yiD 
RAW x-5,y-5:PRINT CHR* (23) »CHR* (dm) : PLOT 
x ,y, nype:PR 

INT CHR*(23)+CHR*( 1): LOCATE 1,1 
220 IF s-1 AND (a*=CHR*(242) OR a*-CHR*( 
246) OR a*=CHR*(245)) THEN x-x-l-ABS(nym 
od = l)-(ABS(nymod =ø) *3) ELSE IF s=l AND ( 
a*=CHR*(243) 

OR a*=CHR*(247) OR a*=CHR*(244)> THEN x 
=x + 1+ABS(nymod=l)»(ABS <nymod»ø) #3) 

230 IF s=l AND <a*=CHR*(241) OR a*=CHR*< 

245) OR a*=CHR*(247)) THEN y=y-2 ELSE IF 
9-1 AND (a*=CHR*(240) OR a*=CHR*(244> O 

R a*=CHR*(24 
6)) THEN y-y+2 

24ø IF SOI AND (a*=CHR® (242) OR a*=CHR* 
(246) OR a*=CHR*(245)) THEN x=x-s ELSE I 
F s< >1 AND <a*=CHR*(243) OR a*=CHR*<247> 
OR a*=CHR*( 

244) ) THEN x=x+s 

250 IF 3<>1 AND <a*=CHR* (241) OR a«-CHR* 
(245) OR a*=CHR* (247)) THEN y=y-s ELSE I 
F SOI AND <a*-CHR*(24ø) OR a*-CHR*(244) 
OR a*=CHR*( 

246) ) THEN y=y*s 

260 IF ASC <a*)>239 AND ASC(a*)<248 THEN 
GOTO 190 

27ø IF ASC(a*)=248 THEN GOSUB lølø: GOSUB 
75ø:GOSUB 1020 

280 IF ASC <a*> =249 THEN GOSUB lølø:GOSUB 
760:GOSUB 1020 

290 IF ASC(a*)-25ø THEN GOSUB lølø: GOSUB 
77ø:GOSUB 1020 

300 IF ASC(a*)=251 THEN GOSUB lølø:GOSUB 
780:GOSUB 1020 

310 IF a*-"s" OR a*-"S" THEN GOSUB lølø: 
INPUT "INDTAST PLOT STEP:"S s:GOSUB 1020 
32ø IF a*=" I“ OR a*="i" THEN GOSUB lølø: 
INPUT "ENKELT EL-LER BOBBELT FARVE-OA2H “ 

I sode:GOSUB lø2ø:IF sodc*l THEN IN 3 UT "1 
NDTAST PEN 0 

G NY INK:"I pe, i:GOSUB lø2ø:INK pe,i 
330 IF a*="I" OR a*=“i" THEN GOSUB lølø: 
IF sodc—2 THEN INPUT "INDTAST PEN,INK 1, 

OG INK2 :"i pe, i 1,i2:GOSUB 1020:INK pe.ll 
, 12 

340 IF a*-"P" OR a*-"p" THEN GOSUB lølø: 
INPUT "INDTAST NY CURSOR-PEN:" I nype: GOSU 
B 102© 

350 IF a*="M" OR a*»"m" THEN INPUT " NYT 
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MODE(CLS) !" ;nymod : MODE nymod : x»løø:y=lø 

530 IF a*»"." OR a*=">" THEN GOSUB lølø: 



0 

INPUT "INDTAST SKAERMEN’S NAVN :";name*: 



360 1F a*="B" OR a*="b" THEN GOSUB lølø: 

SPEED WRITE 1:nam*»" 1 "*name*:SAVE nam*,B 



INPUT "ENKELT ELLER DOBBELT FARVE BORDER 

,49152.16384 



(1/2)i"IsodcbiGOSUB 1020:IF sodcb=l THEN 

: 60SUB 1020 



INPUT "INDT 

54ø IF a*=" /" OR a*=-7" THEN LOAD"",2240 



AST BORDERi"I nybor!GOSUB 1020:B0RDER nyb 

ø:GOSUB 102© 



or 

55ø IF ASC(a*)-224 THEN GOSUB 580 



370 IF a*»"B" OR a*="b" THEN GOSUB lølø: 

560 IF a*="l" OR a*“"L" THEN GOSUB lølø: 



IF sodcb=2 THEN INPUT "INDTAST BORDERI 0 

INPUT "INDTAST STRENG:"itst*:GOSUB 1020: 



G B0RDER2!"!bo 1.bo2:GOSUB 1020:B0RDER bo 

TAGiMOVE x,y:PRINT tst*iiTAGOFF 



1 ■ bo 2 

57ø GOTO 19ø 



380 IF a*="Y" OR a*="y" THEN GOSUB løløi 

58ø PRINT CHR*(23)*CHR»(1) 



INPUT "INDTAST INK SPEED FOR i DEN FØRST 

590 PLOT x,yiDRAW x*5.y+5:PLOT x,y:DRAW 



E FARVE OG DEN ANDEN FARVE !"!sa1,ss2:GO 

x*5,y—5:PLOT x,y:DRAW x-5,y+5:PL0T x,y:D 



SUB lø2ø:SPE 

RAW x-5.y-5 



ED INK ssl,ss2 

6øø a*=INKEY*:IF a* = M " THEN 600 



390 IF a*-"F" OR a*="f" THEN GOSUB lølø: 

61ø PLOT X ,yi DRAW x*5,y*5:FLOT x,y:DRAW 



GOSUB 79ø 

x*5,y-5:PLOT x,y:DRAW x-5,y+5:PL0T x,y:D 



4øø IF a*="H" OR a*="h" THEN GOSUB løløt 

RAW x-5,y-5 



r«t“IiGOSUB 30!MODE nymodiBORDER nyboriG 

620 IF s=l AND (a*=C!HR* <2421 OR a*=CHR*< 



OSUB 1020 

246) OR a*=CHR* (245)) THEN x=x-l-ABS (nym 



410 IF a*="C" OR a*="c" THEN GOSUB lølø: 

od=l)-(ABS(nymod»ø>*3> ELSE IF *=1 AND < 



INPUT "INDTAST CIRKLENS CENTER(X,Y),RADI 

a*-CHR*(243) 



US, OG PLOT STEP :"!ck, cy,radius,cstep:G 

OR a*=CHR* (247) OR a*=CHR*<244>) THEN x 



OSUB 10201 DE 

=x*l*ABS(nymod'I> * <ABS(nymod=ø)«3) 



Gi PRINT CHR* (23) +CHR* <dm>: FOR ca=l TO 36 

630 IF s=t AND (a*=CHR*(241) OR a*=CHR*( 



0 STEP cstep t PLOT cx+rad ius*C0S<ca),cy+r 

245) OR a*=CHR*(247)) THEN y=y-2 ELSE IF 



adlus»SIN(ca) : NEXT s PRINT CHR*(23)+CHR*(1 

9=1 AND (a*=CHR*(24ø> OR a*=CHR*(244> 0 



) 

R a*=CHF*(24 



420 IF aS="z“ OR a*="Z" THEN GOSUB løløi 

6') THEN y=y*2 



INPUT "INDTAST NVT DRAW-MODE (ø,1,2,3) i 

640 IF sOl AND (a*=CHR* (242) OR a*=CHR* 



"i dm:GOSUB 1020 

(246) OR a*=CHR*(245)) THEN x»x-a ELSE I 



43ø IF a*="T" OR a*="t" THEN GOSUB lølø: 

F 3<>1 AND (a*=CHR*(245) OR a*=CHR*(247) 



GOSUB 69ø!PEN nype 

OR a*=CHR*( 



44ø IF a*="D" OR a*="d" THEN GOSUB lølø: 

244)) THEN x»x*s 



INPUT "DRAM X,Y :"; drx, dry: GOSUB 1C'20:PR 

650 IF sOl AND (a*=CHR* (241) OR a*=CHR* 



INT CHR*(23)+CHR*(dm) i DRAW drx,dry:PRINT 

(245) OR a*=CHR®(247)) THEN y=y-s ELSE I 



CHR*(23)*CH 

FsOl AND (a*=CHR*(24ø) OR a*=CHR*(244) 



R* < 1) 

OR a*=CHR*( 



450 IF a*="R" OR a*="r" THEN GOSUB løløi 

246)) THEN y=y*s 



INPUT "DRAWR <X,Y> i"Sdrrx,drry:GOSUB lø 

660 IF ASC(a*J =224 THEN PRINT CHK*<23>+C 



20:PRINT CHR* (23)+CHR* (dm)-.DRAWR drrx,dr 

HR*(1):RETURN 



ry:PRINT CHR 

67ø IF a*="F" OR a*="<" THEN GOSUB løløi 



*(23)»CHR*(1) 

G05UB 79ø: PRINT CHR*( 23) +CHR*(1) 



46ø IF a*="x" OR a*=”X" THEN GOSUB lølø: 

680 GOTO 590 



INPUT "PLOT < X,Y) :"iplx.plyiGOSUB 1020: 

690 5px=(x/6 AND nymod=2)*(x/16 AND nymo 



PRINT CHR*(23)+CHR*(dm):PLOT plx,ply:PRI 

d=l)*(x/32 AND nymod=ø):spy=25-(y/!6) 



NT CHR*(23)* 

7øø PEN nype 



CHR* (dm) 

71ø LOCATE spx.spy 



47ø IF a*="v" OR a*="V" THEN GOSUB lølø: 

72ø a*=INKEYt:WHILE ...INKEY*:WEND 



INPUT "PLOTR (X, Y) : "; pir>:. p 1 ry : GOSUB lø 

: IF a*=CHR*(225) T H EN 73 ø ELSE PRINT a*S 



20: PRINT CHR* (23J+CHR* (dm) iF'LOTR plrx.pl 

: GOTO 720 



ry! PRINT CHR 

73© a*=INKEY»:IF a»< >"0" AND THEN 



* (23) +CHR* (1) 

RETURN ELSE IF a*="0“ THEN GOSUB 102ø:R 



480 IF a*="E" OR a*="e" THEN GOSUB lølø: 

ETURN 



INPUT "INDTAST ELLIPSENS CENTER(X,Y>.AKS 

74« GOTO 73© 



ERNE A OG B.STEP :"Scx,cy,raa,rab,cstep: 

750 CALL 39006:RETURN:REM »scroll op« 



GOSUB 1020:D 

760 CALL 39051 1 RETURN:REM »scroll ned* 



EG:PRINT CHR*(23)+CHR*(dm)i FOR ca=l TO 3 

770 CALL 38S1 ø: RETURN:REM »scroll tsl ve 



60 STEP cstep:PLOT cx*raa»C0S(ca),cy+rab 

nstre* 



•SIN(ca)iNEXT:PRINT CHR*(23)*CHR*(1) 

780 CALL 38906:RETURN:REM »scroll til Mø 



49ø IF a*="W" OR a*="w" THEN GOSUB lølø: 

jrp» 



INPUT "INDTAST NYT TEXT-MODE (NORMALT(ø) 

79ø INPUT "INDTAST PEN DER SKAL PAINTES 



,TRANSPARENT(1)1 :"!ntro;GOSUB 1020:IF nt 

MED :"!fpen:GOSUB 1020 



m=0 OR ntm=l 

800 PRINT CHR*(23)+CHR*(ø):+x=x: f y=y 



THEN FRINT CHR*(22)+CHR*(ntm) 

81ø fadd=<4 AND nymod=ø)+<2 AND nymod=l) 



5øø IF a*='"‘" OR a*="tt" THEN GOSUB lølø: 

+<1 AND nymod=2> 



PRINT"MODE ;"i nymod I" PEN :";nype|" 

82ø fxl=f x :f y l=fy: gapen=TEST < fx ,f y> 



DRAW-MCDE :";dmi" TEXT-MODE :"Sntmi" 

830 IF TEST(fx 1,fyl)=gapen THEN FLOT fxl 



PLOT STEP : 

, f y 1, f per: ELSE GOTO 850 



"SsS" INK SPEED :"5ssl5" ," 5ss2l" CUR 

B4ø fxl=fxl*fadd:IF fxl>640 THEN 850 ELS 



SOR POSITION xi"SxS",y:"!yi:IF sodcb-1 T 

E GOTO 830 



HEN PRINT" BORDER :"inybor 

85ø fyl-fyl+2:IF fyl>4øø THEN 86ø ELSE f 



51ø IF a*="'' n OR a*="*" THEN IF sodcb-2 

x 1=fx: IF TEST (fx1,fy1 > <>gapen THEN 860 E 



THEN PRINT" BORDER 1"Jbol i" ,"ibo2! ELS 

L3E GOTO 830 



E INPUT "TRYK PAA ENTER"i en*:GOSUB 1020 

860 fxl=fx:fyl=fy-l 



52© IT OR o*-"*") AND =odbc=2 TH 

B7© IF TEST(fxl, fyl)=gapen THFN PLOT fxl 



EN INPLT "TRYK PAA ENTER"S en*:GOSUB 1020 

,fyl,fpen ELSE GOTO 890 



• 

• 






10 










BØO fxl=fxl*f*dd:IF fx1>640 THEN 090 ELS 
E GOTO 870 

B90 fyl=fyl-2iIF fylvO THEN 900 ELSE fxl 
=fxiIF TEST(fxl,fyiKgapen THEN 900 ELS 
E GOTO 070 

900 fxl*fx-fadd:fyl = fy-1 

910 IF TEST(fx1,fy1)=gapen THEN FLOT fxl 
.fyl.fpen ELSE GOTO 930 

920 fXl=fx1-faddiIF fxl'O THEN 930 ELSE 
SOTO 910 

930 fyl=fyl-2: IF fyl-;0 THEN 940 ELSE fxl 
=f>i-f add: IF TEST<f x I, f y 1 >< >gapen THEN 94 
0 ELSE GOTO 910 
940 fxl*fx-faddifyl*fy 

950 IF TEST (fxl, f yl) =gaper> THEN PLOT fxl 
.fyl.fpen ELSE GOTO 970 

960 fxl=fxl-fadd:IF fxl<0 THEN 970 ELSE 
GOTO 950 

970 fyl=fyl+2iIF fyl>400 THEN 900 ELSE f 
xl=fx-fadd!IF TEST<fxl,fyl)< >gapen THEN 
980 ELSE GOTO 950 

9B0 bi*=INKEV*:IF THEN GOTO 9B0 

990 IF bi*="0" THEN GOSUB 1020!PRINT CHR 
*(23)*CHR*(1JiLOCATE 1,1 i RETURN 
1000 PRINT CHR*(23)*CHR*(1)iGOSUB IOIOiL 
OCATE l,liRETURN 

1010 CALL 38786:RETURN:REM gem skaerm ve 
(3 22400 

1020 CAL I 3R798! RETURN! REM tag eLaertn fr 
em fra 22400 og placer den ved 49152 
1030 FOR ya=30786 TO 39095:READ yb:POKE 
ya,yb:NEXT: DATA 1,0,64.Ml. 128,87,8,21,0, 

: 92,E.ED,8<Bø,S.C9,øl,0,64,8.11,0, 192,8.21,12 
8, 87,8.ED, 8.B0 

,8.09. 1,0,97,S.3A, 128, 143.2, 3. 8.3A, 128, 135, 
2, 3.8.3A, 128, 127,2,3,8.3a, 128. 119, 2,3, 8.3A, 
128, 111,2,3, 8.3A, 128, 103,2,3,8,3a, 128,95,2 
18 


1040 DATA 8-3A, 128, 87, 2, 1,255,63, S.) 1.128, 
87,8,21,129,87, 8.ED.8.BØ, 1,0,07, 10.50, 127, 1 
51,3,10,50,127,143,3,10,50,127,135,3.10, 
30,127,127,3 

, 10,50, 127, 119,3, 10,50, 127, 111,3, 10,50, 1 
27. 103,3, lø,5ø, 127,95,201,1,0,87,58, 127, 
1*11 2« 3 

105ø DATA 58,127,143,2,3,58,127,135,2,3, 
58. 127,127,2, 3,58, 127, 1 19,2, 3, 58. 127,111 
,2,3.58.127,103,2,3,58,127,95,2,3,58,127 
.87,1,255,63 

,8,11, 127, 151,8,21,126, 151,8<ED, 8.BB, 1,0,87, 
10.50, 128.143,3,10,50, 12B,135,3,10,50, 12 
B, 127,3, 10,50 

1060 DATA 128,119,3,10.50,128,111,3,10,5 
O,128,103,3,10,50,128,95,3.10,50,128,87, 
201,1, O, 8, 8,11, ø, 79,8,21,128,87,8»ED,?<B0, 1, 
0,56,8.11, 128 

,87,8,21,128, 95,8-ED, 8-BO, 1,80, ø, M1,48,151 

, 8,21,0, 79, 8,ED,!<BO, 1, 176, 7,8,11,128,143,8.2 

l,8ø,79,8,ED,S.B0,201,1.0 

1070 DATA 8,8,11,0,79,8.21,128. 143,SED,&Bø 

, 1,0,56,8,11, 12B, 151,8-21,128, 143,8.ED, 8,68, 

1,80,0,1,11,128,87,8,21, 176,86, S, ED, 8B0, i, 1 

76,7,8,11,208 

, 87,8,21, O, 79, &ED, 8,Bø,201 

1080 DEFINT a,b,d-z 

1090 SPEED KEY 10, 1 

1100 ?odcB=!!dm=0!nymod=2iMODE nymodiCLS 
:x= løø: y=100: s=l i nype=l:PEN nype:PAPER O 
:INK 0,13:INK 1,11ntm»ø:PRINT CHR*(22)+C 
HR*(ntm):ssl 

=10:ss2=lø:SPEED INK ssl,ss2inybor=13:BO 

ROER nybor 

1110 MEMORY 20000 

1120 RETURN 


Claus har også fundet 
OUT 0,2: OUT 256,a 

OUTO,3:OUT256,a 
a = 0 

a= 1,2 eller 3 

OUTO,4:OUT256.a 
a= 19 
a = 20 
a = 34 

OUT 0.5: OUT 256,a 
a - 1 til 17 
a= 32 

OUT9,8:OUT256,a 
a= 1 
a = 2 
a-48 
a = 64 

OUT 512,126 
OUT 512,0 


nogle skægge effekter med OUT-kommandoen: 

Hvor a er et tal, der bestemmer skærmens vandrette 
placering- A=46 giver dig normal skærm igen. 
hvor: 

slår skærmen totalt fra 

giver forskellige grader nskævt« skærmbillede 

a = 4 giver normalt billede igen 

hvor: 

giver konstant rulning opad 
giver konstant rulning nedad 
giver normal skærm 
hvor: 

ruller skærmen nedad med hastigheden - a (omtrent) 

giver normal skærm 

hvor: 

skræmen ryster konstant 
normal skærm 
slår skærmen fra 
slår skærmen til 
starter båndoptageren 
slukker båndoptageren 


Også spillefuglene skal have en chance. Soren Jensen, Ullerupvej 72, 9670 Logstør har sendt program¬ 
met TANKDUEL. 

Spillet er beregnet for to personer. Hver spiller har en kampvogn, som han skal manøvrere nir.dt i en 
labyrint, med det formål at skyde modspillerens kampvogn »i smadder«, som Soren så beskrivende kal¬ 
der det. 

Programmet, excl. variabler, fylder 6430 bytes. 

Der er i øvrigt en speciel hilsen til Sørens storesøster, som mod sit vidende har lagt cassettebånd til 
hans spil. 

Da Søren åbenbart mangler databånd, sender vi straks 10 som præmie. 
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A80 DATA z < ,,z 1 ,,2,,z,z,z,z,,z,z,z,z,z., 

•TANKDUEL* 

z,z,,z.z,z,z,z,,z,z,z,z..z,.,z,,,z 


A9ø DATA Z...Z.z. 

♦ SØREN * 

Søø DATA z, I ,z l ,,z,z l z,z,,z,,z,,z,,z, a z, 

• JENSEN * 

z,.z,,z,,z,,z,,z,z,z,z,,,z,,,z 

+••«*«•*** 

510 DATA z,,,z,,,z,,,z, , z , , z , , , , z , , z , z ,, 


*1, 

2ø CLS 

520 DATA z l ,,z,,,z,z,z,z,,z,,z,z,z,,z,,z 

30 DIN m* <4ø,25) 

l Z,,Z,,Z,Z,Z,,Z,,Z,Z,Z,Z,,,Z,,,Z 

Aø RESTORE 36© 

530 DATA ... 

50 FOR dy=l TO 25 

Z IMMIM Z MI Z 

60 FOR dx = l TO Aø 

5Aø DATA z,,,z,z,,z,z,,,,z,,z,,z,z,z,z,z 

7ø READ m«(dx,dy) 

,Z,Z,Z,Z,Z,,Z,,Z,,,,Z,Z,,Z,2,,,Z 

80 NEXT 

550 DATA z,,,z,z,,z,z,z,z,z,z,,z,,,,,,,, 

90 NEX* 

.. 

løø INFUT "Indtast i. spiller’s navn"isp 

560 DATA z,,,,,,,,,,,,,z,z,z,z,,,z,z,,,z 

1 * 

l Z » Z l Z M t M M I M M l Z 

110 INFUT "Indtast 2. spil ler's navn"isp 

57ø DATA z, ..... 

2* 

IMMIMI Z 

120 60SUG 810 

530 DATA z,z,z,z,z,z,z,z,z,z,z,z.z,z,z. 

13ø SK 1 "2ø : SK2**2ø 

z,z,z,z,z,z,z,z,z,z,z.z,z.z,z.z,z.z.z.z, 

1Aø ENV 1,5,3,1,1,0,16,5,-3,2 

Z,Z,Z,Z,Z i 

150 MODE 1 

5?ø GOSUB 1260 

160 BORDER ø 

600 INK 0,21 

170 INK 0,0 

61ø w1=2:x2=39:vi=24:y2=2: gx l=x1: gx2=x2: 

180 INK 1,0 

gyl=yl:gy2=y2:tank1=250:tank2=252 

19ø INK 2,11 

62ø GOSUB løeø 

2øø INK 3,13 

63ø ‘ 

210 PAPER 1 

640 ir INKCV(S3>-0 THEN sk 1-sk 1-1 : GOSUD 

220 SYMBOL AFTER A6 

1260:SOUND 1,200,10,7,1,0,15 

230 SYMBOL A6.0, ø,2A, 60, 60,2A.0,0 

65ø IF sk1<1 THEN GOTO 950 

2Aø SYMBOL 250,2A,219,219,255,255,255,25 

66 ø IF INKEY(19)=ø THEN sk2=sk2-l:GOSUB 

5, 195 

1260:SOUND 1,250,10,7,1,0,15 

25ø SYMBOL 122,255,255,255,255,255,255,2 

67ø IF sk2<1 THEN GOTO 950 

55,255 

63ø syl=y1 

260 SYMBOL 251.25A,25A,12ø,127,127,120,2 

6 ?ø sxl-xl 

5A,25A 

7øø sy2=y2 

270 SYMBOL 252,195,255,255,255,255,219,2 

71ø sx2=x2 | 

19,2A 

720 IF INKEY<53)=ø AND tank 1=251 THEN WH 1 

280 SYMBOL 253 . 127,127 . 30,25A.25A . 30,127 

I_E m*(sx1 + 1,sy 1...LOCATE sx1 + 1,syl:PR 

,127 

INT". ": sxi*sx1+1 t LOCATE sx1,sy1:PRINT" " 

290 SYMBOL 25A,255,255,255,255,255,255,2 

: NEND: IF m« < 

55,255 

s«1+1,sy1 )= "2" THEN pl=pl+l:GOTO 1330 

300 CLS: F'EN 2: m* <x I, yl 1 . .. y2> 

73ø IF INKEY<19) =0 AND tank2=251 THEN WH 

m* (gx 1 ,gy 1 > = " "i m*(gx2,gy2> = "" 

I.E m*(sx2+1, sy2)" iLOCATE sx2+l,sy2:PR 

310 FOR dy=1 TO 25 

I'IT". ": sx2=sx2+ 1: LOCATE sx2, sy2: PRINT" ■ 

32© FOR dx = l TO Aø 

tNEND:IF m* < 

330 LOCATE dx,dy:PRINT m*(dx.dy)i 

s<2+l,sy2> = "1" THEN p2=p2+l:G0T0 1330 

3A0 NEXT 

740 IF INKEY(53)=0 AND tank 1=253 THEN WH 

350 NEXT 

I.E mS(sx 1-1, syl) ="" i LOCATE sxl-l,syl:PR 

360 DATA z,z,z,z,z,z,z,z,z,z,z,z,z,z,z,z 

INT"."isxl=sx1-1:LOCATE sx1,sy 1:PRINT" " 

,z,z,z,z,z,z,z,z p z,z,z,z,z,z,z,z,z,z,z,z 

:NENDiIF mS< 


»x1-1,»y1> —"2" THEN p1—p1 +1:GOTO 1330 

•z.z 

750 IF INKEY«19)=0 AND tank2=253 THEN WH 


I.E m*(sx2—1,sy2) = "" :LOCATE sx2-l,sy2:PR 


INT"."i sx 2=sx2-1:LOCATE sx2,sy2:PRINT" " 

37ø DATA z,,,z,z,,z,z,z,z,z,z,, 2 ,,,,,,,, 

:NEND:IF m* < 

MM|ZiiZ|Z,Z,Z,Z,Z,,Z,Z M |Z 

sx2-l,sy2> ="1" THEN p2=p2+l:G0T0 1330 

380 DATA z,,,z,z,,Z,Z,,,,Z.,Z,,Z,Z|Z,Z,Z 

760 IF INKEY<53>=0 AND tank 1=252 THEN WH 

,z,z,z,z,z,,z,,z,,,,z,z,,z,z,,,z 

ILE m*(sx1,syl+1)..LOCATE sxl,syl+l:PR 

390 DATA z.,,z,.,.z,,,.. 

INT".sy 1=sy1*11LOCATE sx1,sy1:PRINT" " 

Z » t 1 t » 1 » » Z » 1 

:WEND!IF m*< 

Aøø DATA z,,,z,,,z,z,z,z,,z,,z,z,z,,z,,z 

sx 1, syl + 1) ="2" THEN pl=pl + l:GOTO 1330 i 

,z,,z,,z,z,z,,z,,z,z,z,z,,,z,.,z 

770 IF INKEY<19)=0 AND tank2=252 THEN WH 

Alø DATA z,,,z,,,z,,,z,, 2 ,,z,,,,z,,z,z,, 

ILE m*(sx2,sy2+l)..LOCATE sx2,sy2+l:PR 

Z mm Z m Z m 2 m ,2 im 2,,,2 

INT".":sy2=sy2+l:LOCATE sx2,sy2:PRINT" " 

A2ø DA T A z,,,z,,,z l z,z a z l ,z,,z,,z,,z,,z, 

:WEND:IF m* < 

z,,z,,z,,z,,z,,z,z,z,z,,,z,,,z 

sx2,sy2+1)="1" THEN p2=p2+l:G0T0 1330 

A3ø DATA z,,,z,,,,,.,,z, 

780 IF INKEY<53)=ø AND tankl=250 THEN WH 

z mnni z m z 

ILE mS <sx1,sy 1 — 1> = "":LOCATE sxl.syl-llPR 

AAø DATA z,,, z ,,,z,, z, z, z,z,,z ,z, z, z,z, 

INT"."i sy 1=sy1-11LOCATE sx1,sy1 1 PRINT” " 

,z,z,,z,z,z,z,z,,z,z,z,z,,z,, l z,,,z 

:TJENØ: TF m*'( 


sx 1,sy 1-1)="2" THEN pl=pl + l:GOTO 1330 


790 IF INKEY (19) =ø AND tank2=250 THEN WH 

A60 DA' F z,,,z,,,z,,z,z , z,z,z,z,,z,,,,z, 

ILE m*<sx2,sy2-l)=“":LOCATE sx2,sy2-l:PR 

z, p ,,z,,z,z,z,z,z,z,,z,,,z,,,z 

INT". M :sy2=sy2-1:LOCATE sx.2, sy2:PRINT" " 

A70 DA~A 

lWENDiIF m«< 

i •.Z| • 1• •• *2 , , ,2 , , ,2 

sx2,sy2-l)="1" THEN p2=p2+l:G0T0 1330 

• 

• 
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30® GOTO 62® 

HEN yl=y1-1 Stan Kl=25ø 



310 CLS 

1120 IF INKEY(34)=ø AND m*<x2,y2-1) = H * T 



320 PRINT TAEM16I 1 "TANK DUEL" 

HEN y2=y2-1:tant2=23® 



33® PRINT 

1I30 IF INKEy<601=0 AND m*<x1-1,yl)="“ T 



340 PRINT"Dette spil er for to spillere. 

HEN xl=x1-11 tank 1=253 



som hver har en tank. Det gaelder om at 

1140 IF INKEY(291=0 AND m*<x2-1,y2>="" T 



skyde demanden spille"-'s tank i smadde' 

HEN X2=x2-1stank 2=253 




1150 IF INk EY <61)=0 AND m*(x1*1,yl! =.T 



350 PRINT 

HEN xl-x1*1 stank 1-251 



36® PRINT "Hver spiller har 20 slud." 

1160 IF INKEY(29)=0 AND m*(x2=I,y2)="" T 



370 PRINT 

HEN x2=n2*lstank2-251 



38® PR!NT"SPILLER ls SPILLER 2:" 

1170 IF gx 10x1 OR gylOyl THEN LCCATE g 



39ø PRINT 

x 1. gy l s PRINT" "« sm* (g ■: 1. gyl > ="* 



900 PRINT" 0 0 

110 ® gx 1 =M 1 s gyl = y 1 



S * D ,F s * 1 ,4 

1190 LOCATE xl.yl 



A L" 

!2øø PEN 3s PRINT CHR* i tank l > S s n* (x 1, y 1) = 



910 PRINT 

"I" 



92ø PRINT"<BpacéV 

1210 IF gx2< x2 OR gy2<>y2 THEN LCCATE g 



93® IF INKEY60* " THEN 930 

x2,gy2s PRINT" sm*(gx2.gy2) = "“ 



94® RETURN 

1220 gx2-x2s gy2=y2 



950 CLS 

1230 LOCATE x2,y2 



96® PEN 2 

1240 PEN øs PRINT CHR* I tank. 2) is m* < x2, y2> = 



970 PR J NT"SIutst i 11 1 ngi " 

"2" 



980 PRINT"Sp111 er ls Spiller 2s “ 

1250 RETURN 



99ø PRINT 

1260 ....... » ' * ’ 



løøø PRINT USING" »• 

» 



1.P2 

1270 LOCATE 8.8:PEN 3sPRINT USING "*>(•">* 



1010 PRINT 

kl ’ 



1020 IF pi p2 THEN PRINT spis " vandt." 

1280 LOCATE 32. 0!PEN ølPRINT USING"##"!s 



103® IF p2>pl TMEN PRINT " vandt." 

k2 



1040 IF p2=pl THEN PRINT" uafgjort." 

129ø LOCATE 8.lØsPEN TsPRINT USING"«# " lp 



løSø PRIN'iINPUT "Vil I prove igen (l=ns 

1 



j,2=ja) ia 

13øø LOCATE 32. 1 Bi PEN ØsPRINT USI 193 "##" 



1060 IF a=l THEN END 

> p2 



1070 RUN 

1310 RETURN 



1080 IF INKEY(69)"0 AND INKEY(36) =® AND 

. .. 



INKEY(67)«ø AND INKEY(34 )=@ AND INKEY168 

1 330 m* >* 1, y 1 >-""s m« 1x2, y2) - H “ sm* (gx 1 ,gy 



1-0 AND INKEY(29)=ø AND INKEV(fcl)=ø AND 

1 )="":m*(gx 2 ,gy 21 ="" 



INKEY(28)=0 

1340 LOCATE »1 ,y1 1 PRINT" "sLOCATE x2,yls 



THEN RETURN 

PRINT" " 



1090 IF INKEY (691=0 AND in* (K 1,y 1 »1 ) = " " T 

1350 LOCATE gx1.gyls PRINT" sLOCATE gx2. 



MEN yl»yl+litankl=252 

gy2sPRINT" " 



1100 IF INKEY(36)=0 AND m* <x2,y2+l )= "" T 

1360 GOSUB 1260 



HEN y2=y2*ls tanK2=252 

1370 GOTO 61® 



lllø IF INKEY(67)=ø AND m* (m 1,y1-1 )="" T 




CP/M 2.2 Ti: 

PS 



Dei er sikken mange af jer. der allerede har fået en DDI 1 diskettostation og dei er nok flere af jet, der 



venter på, at der skal komme nok til landet, Men der er mange, der står fremmede over for CP/M 2.2 di- 



skette operativ systemet.a Derfor starter vi denne spalte rned tips og ideer for anvendelse af CP'm 



Tips nr. 1 




"or det forste er den manual, der medfølger DDI-1 ikke særlig udforlig og anviser kun de simpleste anven- 



delesmuligheder. Derfor er det nødvendigt med en generel indforing i CP/M Den lettest tilgængelige 



bog på dansk er skrevet af THOM HOC AN og hedder såmænd: »CP/M HÅNDBOGEN«. Den er forbillcd- 



lig godt oversat af Ingrid og Frank Bason (begge gamle computer-freaks fra Silkeborg) og udgivet af Tek- 



nisk Forlag Prisen er desværre hoj: 268 inflationsramte danske kronerl 1 Men den er pengene værd 



Altså tips ru. 1: Kob en god CP/M-håndbog 




• 

• 
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Tips nr. 2: Brug af Filcopy.CMD. 

Et af hjælpeprogrammerne, der følger med CP/M disken, er beregnet til kopiering af filer. Kopiering af fi¬ 
ler er mange gange nødvendigt for at lave sikkerhedskopier. Ligeledes er det ikke altid praktisk at an¬ 
vende EISCCOPY.CMD. der som bekendt kopierer hele disketten og sletter hvad der ellers måtte være 
på den pågældende diskette. Man kan udnytte pladsen bedre ved at anvende FILCOPY.CMD. Men hvor¬ 
dan kan man huske, hvilke filer der skal kopieres??? Ja, her har vi så fidusen: Skriv følgende: FILCOPY 
*.* (og enter). 


Dernæst kommer der følgende på skærmen: 
Piease insert SOURCE disc into drive A then 
press any key: 

Ambiguous file name: Confirm individual fi¬ 
les (Y/N) ?Y 


Movcpm 

.COM Copy 

(Y/N) 

?N 

PIP 

•COM Copy 

(Y/N) 

?N 

Submit 

.COMCOpy 

(Y/N) 

?N 

XSUB 

.COM Copy 

(Y/N) 

?N 

ED 

.COMCopy 

(Y/N) 

? N 

ASM 

■COM Copy 

(Y/N) 

? N 

DDT 

■COMCopy 

(Y/N) 

?N 

LOAD 

.COMCopy 

(Y/N) 

?N 

STAT 

.COMCopy 

(Y/N) 

? N 

DUMP 

.COMCopy 

(Y/N) 

? N 

AMSDOS 

.COM Copy 

(Y/N) 

?N 

FILECOPY 

.COMCopy 

(Y/N) 

? N 

SYSGEN 

.COMCopy 

(Y/N) 

? N 

BOOTGEN 

.COMCopy 

(Y/N) 

? N 

COPYDISC 

.COMCopy 

(Y/N) 

? N 


CHKDISC 

.COMCopy 

(Y/N) 

?N 

DISCCOPY 

.COMCopy 

(Y/N) 

?N 

DISCCHK 

.COMCopy 

(Y/N) 

? N 

SETUP 

.COMCopy 

(Y/N) 

?N 

FORMAT 

.COMCopy 

(Y/N) 

?N 

CSAVE 

.COMCopy 

(Y/N) 

?N 

CLOAD 

.COMCopy 

(Y/N) 

?N 

EX1 

.BAS Copy 

(Y/N) 

?N 

EX2 

.BAS Copy 

(Y/N) 

?N 

ROINTIME 

.DEM Copy 

(Y/N) 

7n 

C 

.COMCopy 

(Y/N) 

7 Y 


.PRN Copy 

(Y/N) 

?N 


.HEX Copy 

(Y/N) 

?N 


Copying started... 

Piease insert Destination disc into drive A 
then press any key: 

C COM Copied. 

Copying complete. 

Piease insert a CP/M system disc into drive 
A then press any key: 


Altså, det er bare et spørgsmål om at taste Y eller N og så klarer AMSTRAD'en resten. Kerne Hexerei, nur 
behåndigkeit (og en lille smule viden!!). Desuden fik vi så en oversigt over alle filerne i CP/M-systemet. 
Dem vender vil tilbage til på et senere tidspunkt. 

Saml alle de filer, du ikke vil have ødelagt på 1 eller 2 disketter og ned i bankboksen med dem. Boksleje 
koster rr.ig 110 kr. pr. år og kan trækkes fra på selvangivelsen!! 


Tips nr. 3: Type-kommandoen 


CP/M har aindbygget en række ordrer. Deres 
navne ei følgende: 


Order 

betydning 

DIR 

dictionary 

TYPE 

type 

ERA 

erase 

REN 

rename 

SAVE 

save 

USER 

user 


oversættelse 
oversigt over filer 
skriv 
slet 

giv nyt navn til en fil 

gem 

bruger 


Desuden er en række taster betydningsfulde i 
forbindelse med tastning af CTRL-tasten. De vig¬ 


tigste er følgende: 

Tast: funktion (i forbindelse med CTRL-ta¬ 
sten) 

C: Genstarter CP/M 2.2 (og afbryder igangvæ¬ 
rende hjælpeprogram). 

S: standser udførelsen af et program. Pro¬ 
grammet genstartes ved igen at taste en vil¬ 
kårlig tast. 

P: aktiverer printeren (hvis den er tilsluttet). 
Alt hvad der skrives pa skærmen, vil også 
blive printet. Standses ved at taste (CTRL)-P 
igen. 


Men tilbage til TYPE. En datafil er en fil. der »kun« indeholder data. Teksten til denne artikel, der selvføl¬ 
gelig er skrevet v.h.a. Tasword 464, er gemt på diskette som en ren datafil. Man behøver ikke at LOADe 
hele Tasword 464 ind i AMSTRAD'en, for at se denne fil. Man kan bruge Type i stedet for. Denne tekst 
blev SAVET under navnet TIPS. Det eneste jeg behøvede var - efter at CP/M var kaldt frem - at taste TYPE 
TIPS.TXT. Udprintning af TIPS.TXT var ligeledes meget nemt. Her kom (CTRL)-P tasten i anvendelse. 
Men husk nu på. at TYPE kun kan fungere i forbindelse med rene data-filer. Tasword 464's kontroltegn 
til understregninger og lignende ser besynderlige ud på printeren. 

Erik 
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Leif Andrew Rump er mester for dette FUNKTIONSTASTDEFINERINGSPROGRAM (DEN var lang!). 

Du får her hele det numeriske keyboard udlagt som funktionstaster, med en masse ofte anvendte BA- 

SIC kommandoer Tastaturet på CPC 464 er et såkaldt SOFT-KEY tastatur, d.v.s., at et program kan flytte 

om på tasterne, hvis man hellere vil have f.eks. et DVORAK tastatur i stedet for QWERTY-tastaturet, kan 

dette altså sagtens lade sig gore. 


Programmet henvender sig i forste række til disc-brugere, men kan nemt ændres til andre formål. 

Linje 130-250 fjerner de brugerdefinerede tegn og definerer en større buffer til funktionstasterne ved 

hjælp af et lille maskinkodeprogram. 


Linje 200-510 er hovedprogrammet, der læser datasætningerne (linje 550 til 710). Nummertegn () bli- 

ver erstattet med anførselstegn ("), og der indsættes back-spaces, så cursoren står klar ved det første an- 

forselstegn, når man trykker på en funktionstast. Desuden bliver udråbstegn erstattet med ENTER 

(chrS(13)). 


I linje 690 skal man gå lidt specielt til værks. 


Skriv linje 690 helt færdig og tryk på ENTER. Skriv derefter PRINT CHR$(243) ; CHRS(255) og tryk på EN- 

TER. De totegn, der nu er kommet frem, skal indsættes i linje 690 efter 155," og 156,", ved hjælp af COPY 

funktionen. 


Jeg ved, det er »The Commodore WAY«, og ikke særligt pænt, men... 

Funktionstasterne aktiveres ved at trykke på enten SHIFT eller CTRL sammen med en tast på num- 

merblokken (incl. punktum og lille ENTER). 


Desuden er både TAB og CLR omdefineret: 


TAB indsætter 2 mellemrum. 


SHIFT/TAB flytter cursor 2 positioner til højre. 


CTRL/TAB skifter mellem overskriv/indsæt mode (normalt). 

CLR som normalt (sletter tegnet, hvor cursoren står). 

SHTFT/Cl.R giver CI.R 


CTRL/CLR giver MODE 2. 


130 'Funktiønstastdefinering : Copyright 

460 IF pmin -ø THEN txt* (nr ) “txt* (n* - > +STR 

i Leif Andrew Rump. feb. 1985 

ING*(LEN(tx t*(nr > > —pmin,242) 

110 ' 

470 KEY num(nr) ,t.xt*(nr) 

120 ’skaf plads til en stor funktior.stas 

480 NEXT nr 

t-buf fer 

490 READ keynum 

130 bytes=.'>00+32 

500 WEND 

140 SYMBOL AFTEF: 254. 

510 END 

150 MEMORY HIMEM-bytes 

520 ’a ■» tastnr fapperrdix MI side 16' . J 

160 P0KE HIMEM+ 1, !<21 

b=repeterende (0=nej,l=ja) 

170 POKE HIMEM+2, t«FF AND bytes 

530 ’c,e,g “ASCII for: normal,shift.Ctrl i 

190 P0KE HIMEM+3, INT(bytes/256) 

: d,f,h - func-tekst 

190 P0KE HIMEM+4.S.11 

540 ’ a b c d e f 

200 POKE HIMEM'-5. ?<FF AND UNT (HIMEM*-1) 

g h 

210 POKE HIMEM+6,INT((HIMEM+1)/256) 

550 DATA 15,0, 40."O", 130,"0". 

220 POKE HIMEM+7,&C3 

142, ■•load«*'' 

230 POKE HIMEM*-8.?, 15 

560 DATA 13,0, 49."1“. 131,“»cpm!", 

240 POKE HIMEM+9, &E<B 

143,"»tape.in 1 " 

250 CALL HIMEM+1 

570 DATA 14,0, 50."2", 132,"f«=#»s odir 

260 DEF1NT a-irDIM txt»(3> 

,@f*", 144."»tape.out!" 

270 ' 

500 DATA 5,0, 51, "3", 133, ”f *=**! oera 

280 READ keynum 

,@f*", 145,"»disc.in'“ 

290 WHILE keynum>0 

590 DATA 20,0, 08,"4". 1 34, "g»-#«i f»-# 

300 ■ 

*: »r en, @ f *, @g * ",146,"»disc.out!" 

310 READ rep,num!1),txt*(1>,num(2),txt*( 

600 DATA 12.0, 53,"5". 135,"»tape'", 

2),r. U m(3>,txt*(3> 

147, "f*=»»iednve,ef*" . 

320 KEY DEF keynum, rep, num (1), num(2). nu,n 

610 DATA 4,0, 54,"6", 136, "«di sc!" , 

<31 

148,"cat*" 

330 PRINT:PRINT USING "»* <*": keynum?repi 

620 DATA 10,0. 55,"7". 137,“»user.”, 

350 FOR nr-1 TO 3 

149, 

360 PRINT TAB <nr*7—25*(nr =3) )i US1NG "### 

630 DATA 11,0, 56,"8". 138,"•«!", 

ft”! num (nr) ! txt* (nr) ! 

150, " ■' 

370 IF num(nr )< 128 OR num(nr>>159 THEM 4 

640 DATA 3,0, 57,"9". 139,"»b", 

30 

151,“" 

390 p*0:pmin=0 

660 DATA 7,0. 128,".". 140.".", 

400 p—INSTR < txt * (nr ), ” tt" > 

152,"save*" 

410 IF pmin=ø THEN pmin-p 

670 DATA 6,0, 129,“'", 141,"'", 

420 IF p>0 THEN MID*< tx t* (nr ) , p,1> =CHR*< 

153,"run*" 

34 ) s GOTO 400 

690 DATA 68,1, 154, "es". 155," ", 

430 p-INSTR 1 txt * <nr ) , ) 

156."a" 

440 IF p>0 THEN MID* ( txt*(nr ) ,p.1>=CHR« ( 

700 DATA 16,1, 16,"", 157,!cls", 

13)i GOTO 430 

158, " 1 mode 2 1 " 

450 ' 

710 DATA -1 

Morten Kjær Bonnerup, Hankærvej 8, 7700 Thisted 

har sendt os programmet »SNAKE « næsten helt 

uden kommentarer- Programmet er oprindelig skrevet til en Oric 1 Når du spiser en flue, kommer der en 

energiflue og en bombe Bomben kan forst spises, når du har spist energifluon. STRENGTH fortæller dig, 

hvor mange bomber, du må spise. 


• 

• 
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l .. 

690 FOR pau«e=0 TO SdsNEXT 

. 2 '« S N A K E • 

7øø LOCATE a,bl PRINT" “ 

S ■« af • 

710 x*=INKEV« 

4 ’• Morten KJ aer » 

720 IF t . THEN 490 

5 ’» Bonnerup * 

73ø IF m«i" 


•• OR x«=“ 


•’ OR ::#=“ OH X*-"- C HEN 740 tLa£ 4VW 

Id MODE 1 

74ø x2=-<x«="*)+<x**") 

20 MEMORY 36257 

750 y2=-<-6- M 

30 b-0 

">*<x*=" • 

40 DA T A 205, M>ø, «BB,50, 170, 141,201 

•’> 

50 FOR r-36258 10 36264!READ alPOKE x.ai 

760 IF x 1< '—x2 THEN xl-x2 

NEXT 

77ø IF yl< -y2 THEN yl»/2 

60 SYMBOL 255,60,114.241,241,255,255,126 

73ø GOTO 490 

.60 

770 GOTO 790 

70 SYMBOL 254,129,66.60.184,255,60,255,1 

800 5-6«10 

29 

Blø REM musici.6.6.0 

80 SYMBOL 253.126.153.255,60.126.255.255 

820 SOUNb 1.284,?ø,15,11 ) 

.153 

830 LOCATE M1,9,1:PRINTM1. s 

90 SYMBOL 252.16,56,124,124,254,254.146. 

840 FOR q«1 TO 2 

146 

850 1=RND»40»1 

100 DIM al 140,25) 

860 ll=RND»22-*2 

110 DIM bl(40,25) 

870 LOCATE 1 ,111CALL 36258: IF PEEM36266 

120 6-0 

)' 32 THEN 050 

130 j=0 

850 IF q-1 THEN LOCATE 1.11:PEN 2tPRINT 

140 CLS 

CHR#( 25" - ELSE LOCATE I,Il1 TEN SlPRINT L 

150 BORDER 7 

HR«<252) 

160 INf 0. 15 

8>0 NEXT 

170 INf 1.9 

900 GOTO 620 

180 INI 2,0 

910 5=94-40 

1*7© INK 3,7 

920 REM roust c 2,4,6,0 

200 WINDOW Ml.1.40.1,1 

430 SOUMD 1,568,20,15,11 

210 WINDOW #2.1,40,25,25 

940 LOCATE Ml,9.Il PRINT Ml, s 

220 PAPER #1,3 

950 e=e-l 

230 PAPER #2.3 

9tø ef-STR^te«." ; 

240 PEN #1,2 

970 LOCATE M2,11,1!PRINTM2,e* 

250 PEN #2.2 

930 GOTO 62ø 

260 CLS #1 

940 s-B-20 

270 CLS #2 

løoø REM music 3,2,6,0 

280 x-20:y-12 

1010 SDUND 1.142,20,15,11 

290 a=:b=y 

1020 LOCATE #1,9.liPRINT#!, S 

300 »1-øiyl-ø 

1030 e-*+l 

310 j”;«l© 

1040 e*=3TR*(e)*" * 

320 f=s 

1050 LOCATE #2.11,1 s PRINT#2,e» 

330 FEM 2 

1060 GOTO 620 

340 REM music3,l,12,0 

IO70 INf 1,9.1 

350 SOUNO 1,4/8,50.15.11 

1080 SPEED INK 10.10 

360 PAPER O 

1090 FOR t-7 10 15 

370 FOR 1=1 TO 1 

1100 SOI.IND 1,0.40. 15-t,0,0. t 

380 RANDOMIZE TIME 

1110 NEXT t 

390 q=RND«40+l :w=R*ID»22«2 

1120 c*b 1 <a.b) 

400 LOCATE q.wtCALL 36258: IF PEFI (362661 

113« a=a»al la.bl 

032 THEN SO TO 390 

1140 b=b'c 

410 LOCATE q,w:PRINT CHRM254) 

1150 IF a=0 THEN 1190 

420 NEXT 

1160 LOCATE a.blLALL .-62581 IF rEE»; < 36260 

430 e=0 

)■ 255 THEN 1190 

440 d1=3 

li/ø LOCATE a.btPRINT" ‘ 

450 q-s 

118ø GOTO 1 120 

460 LOCATE #1.3,li PRINT Ml."SCORE:"16 

1190 LOCATE 16.111 PH1NT"SCORE:“i s 

470 LOCATE M1,23.11 PRINT •1."Ml-SCORE:"1 

1200 IF s:-h THEN LOCATE 9,11 :FRINT“NEW H 

480 LOCATE M2,3,liPRINT #2,"STREMSTHt"le 

1-" 

12X0 IT * !. THEN h==> 

490 alø:,yl=,: 1 

1220 LOCATE 14, 1 4: PR 1 NT ANQTHER GO?" 

500 b l < -:, v> =yl 

1230 a*=lNH-Y»:lF a*^"" OR A«<>“Y" AND a 

510 x»**xl 

«<>"y" AND a* >“N" AND AND a*<>“ 

520 y/»yl 

>•' THEN 1230 

530 IF x<! OR x>40 OR y<2 OR y>24 THEN l 

I240 IF A*“"N" OR A«="n" THEN END 

070 

1250 GOTO 12ø 

540 LOCATE x.ylCALL 36258:as-PEEF<36266) 


55ø IF as-32 THEN 630 


560 IF £.6=255 THEN 1070 

UPS!!! 

570 IF »5=252 AND e=0 THEN 1070 

1 denne rubrik vil vi l hvert nummer bringe evt. 

580 q=5 

lettelser til programmer, vi har bragt 

590 IT as=254 THPN 800 

1 60ø IF as=232 1 HEN 910 

I nr. 2 havde vi på side 28 et kurvetegningspro- 

610 IF as=253 THEN 990 

gram. 

i 620 IF s-< = J » 70 THEN 140 

Der havde indsneget sig on fejl i linje 190 i det 

630 LOCATE x,ytPEN Is PRINI CHft*<255) 

andet program (det lange) Linje 190 skal se sale- 


des ud 

650 IF q =6 THEN 710 

190 IFZGcO THEN V-VT:H=-HT GOTO 210. 

660 c=al<a.b) 

670 b=s«bl<a.b> 

Så korer kurvetegningen perfekt. 

£ 680 fl=a*c 

• 
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AMSTRAD 3/85 













TWILIGHT APS 


26 FLINTHOLM ALLÉ - DK 2000 COPENHAGEN F - DENMARK - PHONE: 01 -88 07 34 



DEVPACC (assog disassemblerl 

kassette.kr. 418 

PASCAL (sprog nummer 21 

kassette.kr. 595 

AMSWCHD ADVANCED (tekst¬ 
behandling I.. . kass. kr, 318.-- disk kr. 398 
EASI AMSCALC (regneark I 

kassette.kr. 318 

HOME-BUDGET (hjemmeregnskab) 

kassette... kr. 318. 

SCREEN DESIGNER (gratik p3 skærm) 

kassette.kr, 189.- - disk kr. 298. 

MASTERFILE Idatabasel 

kassette .kr 398.- -Disk kr 468 

STARWATCHER (astronomi) 

kassette .kr. 298 -- Disk kr. 368 

PROJECT PLANNER (incl. læreprogram) 
kassette.kr. 368.-- Disk kr. 448. 


ENTREPENAUR (incl. læreprogram) 

kassette.kr. 368. Disk kr. 448. 

DECISION MAK ER (ircl. læreprograml 

kasset. kr. 368 - Disk kr. 448. 

MICROSCRIPT (tekstbehandling cp/m) 

disk.kr. 798. 

MICROPEN (databasecp/m) 

disk.kr. 798. 

MICROSPREAD (regreark cp/m) 

disk .. kr. 798. 

CONCISE FIRMWARE (hardware speci 

likationlbog.kr. 318. 

DDI CONCISE FIRMWARE (diskdrive spe¬ 
cifikation) bog. kr, 198. 

TEACH YOUR SELF BACIC2 (lærebog og 
båndibasic) . kr. 318 


Soltv^g 


EASI-AHSCALC 


Ba ... „, imi* 

" 1 >KI • \S k. ]SjS|8 

wg .... » 1 

i 

• 

3 


TELEX: 19319 DINAM. 

























Printere 
til Amtsrad 

CP 80 og Logitech 

AMSTRAD-printeren er ikke den eneste printer, der kan 
bruges til vores computer. Den er selvfølgelig forholdsvis 
»billig«, men lider bl.a. af den fejl, at den, når den arbejder, 
minder mig om foråret ved havet. Mange læsere husker 
sikkert de hule drøn, der lyder i marts og april måned, når 
fiskerne slår bur.dgarnspæle i langs Danmarks kyster. Så 
er det forår. Amstrad-printeren er desuden forsynet med 
et sværtesystem, der efter min erfaring tørrer for hurtigt 
ud. 

Men vil man ofre lidt mere på sin printer, og stadig holde 
sig på den rigtige side af de 5000 kr„ er der adskillige gode 
printere, der kan blive tale om. Vi skal her se på et par af 
dem. 

Shinwa CP-80 

Shinwa-CP 80 kom på det danske marked for ca. et år si¬ 
den. Det er en dot-matrix-printer, der leveres med centro- 
nics-interface. Udvendig er de anvendte materialer kraf¬ 
tigt plastic i lys beige. Låget, dor samtidig fungerer som 
støjdæmper og papirafrivningskant, er gennemsigtigt røg¬ 
farvet. Den indvendige mekanisme fremtræder nogen¬ 
lunde robust, og de bevægelige dele er kraftige. Den ja¬ 
panske leverandør regner med, at CP-80 vil kunne skrive 5 
millioner linjer, far der opstår fejl. Dette gælder dog ikke 
printerhovedet, der »kun« kan holde til 50 millioner karak¬ 
terer! ! Printerens vægt opgives til 5.3 kilo. CP-80 er forsy¬ 
net med »tractor-feed« papirfremføring (til papir med hul¬ 
ler i siderne) og kan også anvendes til printning af enkelte 
ark papir. Papirbredden kan indstilles mellem 4" (101.6 
mm) og 10“ (254 mm). CP-80 leveres med en udførlig en¬ 
gelsk manual og et farvebånd. 

Der er utallige indstillingsmuligheder, når man vil printe 
med CP-80. Der kan vælges mellem 7 forskellige skriftty¬ 
per, og disse kan ved hjælp af kontrolkarakterer blandes 
frit. 8 forskellige karaktersæt er det ligeledes muligt at 
vælge imellem, deriblandt også dansk karaktersæt. Der er 
videre mulighed for udprintning af grafik, både semigrafik 
og dot-matrix-grafik. Udprintningshastigheden er på 80 
karakterer pr. sekund. 

Skil den ikke ad! 

Der er dog et par enkelte ting, der er mindre heldige ved 
CP-80. For det første er det utroligt vanskeligt at få adgang 
til de mange skiftekontakter, der skal indstilles før CP-80 
tages i anvendelse. 3 skruer skal løsnes. Derefter skal CP- 
80‘s overdel bakses forsigtigt af. Det går nogenlunde. Men 
påsætningen efter indstillingen af CP-80 volder næsten 
uoverstigelige vanskeligheder. Det er det sikreste at for¬ 
lange, at forhandleren indstiller CP-80 inden den hjemta¬ 
ges. Et andet punkt er farvebåndet. Det er et carbonfarve- 
bånd (i modsætning til et sværtefarvebånd). Selv om dets 
levetid er lang (ca. 50-100 A4 sider), så er prisen for et nyt 
farvebånd temmelig høj: 95 kr Anvendelsen af carbonfar- 
vebånd giver dog en meget pænere skrift end f.eks. det 
sværtefarvebånd, der sidder i AMSTRAD-printeren. Ende¬ 
lig er manualen på engelsk, og det er stadig, for mange 
danskere et vanskeligt sprog (specielt det tekniske) at 
læse. Kunne disse manualer dog ikke oversættes. Det ville 
hjælpe mange brugere. Eventuelt skulle man kunne købe 
en oversættelse for en mindre sum. 

I det hele taget lever CP-80 op til, hvad man med rimelig¬ 
hed kan forlange af en computerprinter i denne prisklasse. 

CPA-80 er en videreudvikling af CP-80. Udseendet er så 
godt som det samme. Farvebåndet der anvendes, er det 
samme. Men en række af de »fejl« CP-80 har, er blevet ret¬ 


tet på CPA-80. Alle skiftekontakterne er nu let tilgængeli¬ 
ge: Det er anbragt under CPA-80's navneplade. Karakter¬ 
sættet er udvidet med et, nemlig Japanske karakterer 
(hvad vi så skal bruge det til her i Danmark?). Hastigheden 
er sat op fra 80 CPS (karakterer pr. sekund) til 100. CPS 



CP80A 


Ligeledes er kraftforbruget sat ned: CP-80 bruger 100 
Watt, mens CPA-80 kun bruger 40 watt. Antallet af skrift¬ 
typer er dog stadig det samme. 

CPA-80 kom på markedet her i Danmark omkring jul. Det 
ser ud til, at Shinwa har lært et og andet. Den merpris man 
skal give for at anskaffe sig en CPA-80 i forhold til en CP- 
B0, synes for mig at være en god investering. Pris og kvali¬ 
tet stemmer her godt overens. 

Logitech 

Logitech minder både i udseende og opbygning om de to 
andre testede printere. Det synes, som om antallet af krak- 
tersæt og skrifttyper er standard for printere i dette pris¬ 
lag. Logitech anvender en lidt anden papirindforingsme¬ 
kanisme en CP-80 og CPA-80. Den forekommer mig noget 
lettere at anvende, men samtidig at »traktor-feed«-meka- 
msmen lidt følsom, hvis Z-fold-papiret ikke er ar.bragt nø¬ 
jagtigt under printeren. Indføring af enkeltark er lettere 
and ved de to andre printere. Men jeg mangler i høj grad 
an ordentlig afskrivningskant på det røgfarvede låg. Den 
måde det nu er udformet på, gør det umuligt at bruge uden 
Jol store papiispild. 

Logitech har et par fordele, man skal lægge mærke til: 
Omskifterne (DIP switch) til indstilling af de internationale 
karaktersæt er anbragt let tilgængeligt i printerens bund. 
Ikke så smart som ved CPA-80, men alligevel ganske hen¬ 
sigtsmæssigt. Farvebåndet er noget af en nyskabelse. Det 
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er en mellemting mellem et sværtefarvebånd og et carbon- 
farvebånd: Egentligt et sværtefarvebånd, der er selvfar¬ 
vende og det torrede ikke ud, selv om printeren ikke var i 
brug i 4 dage! 11 

Hvad selve udprintningskvaliteten angår har man med 
Logitech større mulighed for variation. Fremhævet skrift 
og tynd skrift har denne printer som den eneste indbyg¬ 
get. Ligeledes er der mulighed for at printe skråskrift (Ita- 
lic). Mange vil kunne lide denne skrift til forretningsbreve 
og lignende. 



Logitech 


God dokumentation 

Til Logitech medfølger to manualer. Den ene indeholder 
alt det tekniske (indstilling af DIP-switch) etc., mens den 
anden - dan praktiske - giver anvisning på udnyttelse af 
alle Logitechs muligheder. Den tekniske er noget svær at 
finde rundt i, men heldigvis er »den praktiske« fuld af pro¬ 
grammeringseksempler, der direkte kan anvendes på vo¬ 
res AMSTRAD. 

Det er svært efter at have testet disse 3 printere at 
skulle give et godt råd angående hvilken det er bedst at in¬ 
vestere i. Prisen sammenholdt med kvaliteten er for alle 3 
printere helt i top. Det er småting, der adskiller de tre ma¬ 
skiner fra hinanden. Skulle jeg alligevel - hårdt presset og 
med ryggen mod muren - anbefale en af de 3, ville mit valg 
nok være at udelukke CP-80. Derefter ville jeg overveje, om 
jeg skulle vælge dyrt farvebånd og en god papirafrivning 
eller billigt farvebånd, dårlig papirafrivning og skråskrift 
(Italic). Det er svært!!! Men OK!! Jeg holder meget af at 
have mulighed for at printe skråskrift. Og billige farve¬ 
bånd er ikke at foragte. Så det bliver nok en Logitech, der 
kommer til at stå ved siden af min nye 664! 11. 

Erik Hartmann 



Skriv perfekte breve uden kostbar spildtid til om¬ 
skrivninger p.g.a. fejl, rettelser og tilføjelser. 

Lav ændringer lynhurtigt på skærmen med com¬ 
puterens hjælp hjælp og udskriv det perfekte 
straks.---Brug 

TEKSTBEHANDLING 

sSlili/ KINGSWORD stidjj/ 
DANSK 


Tekstbehandlingsprogram 
Danske bogstaver 
Dansk vejledning 
Dansk kommandosæt 

Fuldt professionelt program 
Kan bruges af enhver - også uden 
forkundskab til tekstbehandling 


fra 


COMPUTER Kl NG 
SOF 

Wf SHOP W' 


TASWORD 464 og AMSTRAD ADVANCED brugere 
behøver kun kortvarig Indlæring af de nye funktio¬ 
ner. 

Fås hos din AMSTRAD forhandler (vejl. kr. 298,00) 
eller hos COMPUTER KING APS.. Guldsmedeaade 
40,8000 Arhus C, telefon (06) 13 74 23. 

Sender mod gebyr: Forudbetaling kr. 10, efterkrav 
kr. 25. 


15 




































Carsten Petersen i Brabrand skriver: 

Jeg nærmest kastede mig over bladet, da jeg så det i en bu¬ 
tik i dag. Endelig et dansk blad udelukkende om Amstrad. 
Så slipper man for at betale 20 kr. for en enkelt artikel eller 
progiam i et eller andet Datablad, der mest handler om C- 
64 eller Spectrum. 

De to har for øvrigt længe trængt til en ordentlig konkur¬ 
rent. Det har de fået i Amstrad. 

Lidt kritik af jeres første nummer: 

Det er vældig smart med sådan en indholdsfortegnelse. 
Det ville have været endnu smartere også at give siderne 
numre! I jeres softwarefortegnelse har I glemt Adventure 
spillene fra Level 9 (jeg har selv »Colossal Adventure«). 

Når man er vant til at læse i andre Datablade, »savner« 
man næsten nogle flere reklamer, men det er rart at læse 
bladet igennem uden at skulle bladre hen over flere sider 
reklame. Bladet er perfekt trykt, men jeg synes, det er lidt 
tyndt. Alt i alt synes jeg, at det er et udmærket blad, I har 
lavet. Generelt synes jeg. at spillene er for dyre, det er jo 
ikke hver uge, man Uge har råd til at give 140 kr. for et spil. 
Man ser sig i hvert fald godt for, før man køber det. 

Selvfølgelig har jeg ikke noget imod at betale for en or¬ 
dentlig kvalitet (jeg gav 200 kr. for »Colossal Adventure«), 
men jeg synes, at Amsoft har lavet en masse programmer, 
bare fordi der skulle være et stort udvalg med det samme. 
Tag et program, som det I har anmeldt i bladet - »Time- 
man« 1 & 2 er fuldkommen ubrugeligt herhjemme, hvor 
børnene garanteret kan klokken flere år, før de begynder 
at lære engelsk nok til at forstå programmet. Og prisen?! 
Det rene og skære vanvid. Det burde selvfølgelig have væ¬ 
ret oversat til dansk, inden det skulle sælges. Før kan det 
i hvert fald ikke bruges efter hensigten. 

Jeg håber for øvrigt, at I vil holde øje med »hackere« i je¬ 
res annoncer. Selv om jeg ikke kan se, hvordan det skulle 
kunne lade sig gøre at bryde et beskyttet program. 

Til sidst et teknisk spørgsmål: 

Præcis hvordan gemmer/henter man skærmbilledet på/ 
fra bånd? Oo hvcrdan får man et program til at resette ma¬ 
skinen, altså svarende til Control-Shift-Escape? 

Mange hilsener og lykke til fra 

Carsten Petersen 
Louisevej 25 
8220 Brabrand 


SVAR: 

Først tak for din kritik afbladet. Det er rart at få nogle reak¬ 
tioner på de ting, der har stået - vi kan lære meget af en 
konstruktiv kritik. 

Og nu til dine spørgsmål: Det er rigtigt, at det første 
nummer af bladet ikke havde nummererede sider - det var 
en svipser, som nu er rettet. 

Vedrørende softwarelisten, sker der allerede nu så me¬ 
get på softwaresiden, at det er meget svært at følge med, 
men vi har bestemt ikke glemt eventyrspillene. 

I næste nummer kommer der et eventyrspil, som Clive 
Gifford har lavet, der illustrerer hvordan man selv kan lave 
sine adventurespil. Bladet er lidt tyndt, skriver du. Det er 
rigtigt for de første numres vedkommende. Grunden til 
dette finder du på side 3 under redaktionsnyhederne. Ve¬ 
drørende prispolitik på programmer: Der er flere grunde 
til, at priserne på software er relativt høje. For det første er 
der en lang vej fra programmørerne, der laver spillet og til 
du får det i hånden, d.v.s., der er mange led, der skal tjene 
på det samt en række omkostninger (fragt, forrentning, 
annoncering osv). For det andet er de rabatter en dansk 
softwareimportør kan opnå i England ikke ret store, fordi 
landet er forholdsvis lille i softwaresammehæng. Det er 
også derfor, vi har så svært ved at få programmer, der er 
specielt tilpassede det danske marked. For det tredje - og 
det bringer os elegant over til dit næste spørgsmål - gør de 
mange piratkopier det yderst vanskeligt for en importør at 
sælge ret mange eksemplarer af et enkelt program. Det ko¬ 
pieres simpelthen lynhurtigt (se f.eks. Den Blå Avis vedr. 
priser). Til spørgsmålet om »hackere« blot dette: Vi kan 
Idesværre) ikke med nogen som helst ret afvise en annon¬ 
ce, der beskriver et program, der kan kopiere andre pro¬ 
grammer. Der er heller ingen, der kan forhindre dig i at 
købe det... MEN du må ikke bruge det til noget!!! Vi fører 
:kke kartotek over potentielle hackere, men jeg er overbe¬ 
vist om, at disse annoncer bliver bemærket af hele bran¬ 
chen, og det er da muligt, at sådanne oplysninger samles 
sammen til eventuelt senere brug. Vedr. reset af maskinen 
fra BASIC, prøv da følgende linje: 65000 CALL 0. 

Save/load af skærmbilleder er beskrevet i Amstradbla- 
det nr. 2, under teknisk brevkasse. 


Cool computers 

Fra det kolda nord, nmrmgre beetemt fra Knud Kri- 
itenaen 1 Nuuk, Granland har vi mo dtag et bat bra v, 

tom vi bringer i let forkortet udgavei 

Knud Erik aktiver b l. a., at der p.t. findea 10 Amstrad 

computere på Grønland, o g ban har kontakt med de 

lire i Sondre Strømfjord. Endvidere akriver han: 

Jeg synes, at I skulle markedsføre billige modems og 
svt. speech synthesizere. Angående forslag til styresy¬ 
stem synes jeg, at forbindelse via telefoner er en oplagt 
ting. Jeg kunne ønske mig følgende faciliteter: 

Computeren skulle kunne tage telefonen og give en be¬ 
sked, evt. via speech synth. ringe op på forprogrammeret 
tlf. nr. og checke, om der ligger en besked på telefonsva¬ 
rer. 

Ringe op på programmeret tlf. nr. i tilfælde af, at en 
alarm aktiveres. 

Batteriopbakning, nok specielt aktuelt her på Grønland. 
Vi har mindst en ugentlig strømafbrydelse. I øvrigt ville 
det være rart med en lille billig spændingsstabiiisator, da 
vores elektricitet ikke er den mest stabile i verden. 

Til sidst vil jeg gerne slå et slag tor det verdensberømte 
simulatorprogram »Flightsimulator II«. Er det ikke muligt, 
I kunne slå et slag for, at dette program kommer med i Am- 
softs repertoire. Samtlige dem, jeg kender, ville hellere 
end gerne investere i dette program, faktisk ville det kun 
være endnu en god grund til at købe denne gode maskine. 


16 




















SVAR: 

Jeg ved ikke, hvordan læserne har det. men når jeg ser så¬ 
dan et brsv. får jeg forestillinger om. hvordan Knud Erik 
sidder i sin lille Iglo med en Amstrad og en pedaldrevet ge¬ 
nerator. Vi andre har dog kun de problemer, vi roder os ind 
i af programmeringsmæssig art. 

Nuvel, til svaret på dine spørgsmål. Vi har på bladet ikke 
nogen tanker om selv at markedsføre de forskellige pro¬ 
dukter. der allerede er i detailhandelen. Der findes efter¬ 
hånden mange computerforretninger, og de forsøger at 
skaffe de ting hjem, der er efterspørgsel på. Ved at handle 
hos en god forhandler har du også mulighed for at spørge 
og få et svar med det sammen, men vi takker for dine for¬ 
slag til styresystem. De vil blive taget med i overvejelser¬ 
ne. 

Det, bladet kan bruges til i den sammehæng er at gøre 
opmærksom på, at der er et behov, der skal dækkes. Hvis 
det bliver dækket ved, at læserne hjælper hinanden med 
gode råd og tips, vil det være den sjoveste og billigste løs¬ 
ning for alle. 

Derfor bringer vi som regel (med mindre andet ønskes) 
navn og adresse i bladet, så der er mulighed for at kon¬ 
takte hinanden direkte. 

Vedr. »Flysimulator n« er det ganske rigtigt et pragt¬ 
fuldt program. Vi kan kun være enige i, at det ville være et 
stort, stor. plus, om det blev konverteret til Amstrad også. 


Jeg havde også et problem med længden af mit monitor¬ 
kabel. Det har jeg også selv løst. Jeg har et computerbord, 
hvor computeren er sænket, til behagelig skrivehøjde, og 
hvor der skulle kunne ligge en bog, mellem computeren, 
og monitoren. Det var svært, med de korte ledninger, som 
også sad ubelejligt, foran monitoren, hvor bogen jo skulle 
ligge. Altså skulle ledningerne væk, under bordet. Det er 
intet problem at forlænge 5V forsyningen, men kunne m 
onitorbilledet klare denne ekstra længde? NEJ! Ikke umid¬ 
delbart, for AMSTRAD har lavet 1. klasses FUSK!! De har 
sparet så meget, at der mangler ca, 50 procent af skruerne 
i monitoren (Jeg snakker kun om den gronne monitor) og 
der mangler saftsus'me!! også skærmen omkring monitor- 
kablet. Men løst blev problemet da, for jeg satte bare nye 
kabler på, inde ved monitorprintet, og førte dem ud bag i 
monitoren. Det ser flot ud, billedet er blevet en del skarpe¬ 
re, og 50HZ bølgen er også væk. Så til den, som ønsker en 
længere ledning til monitoren vil jeg sige 

1. Skru monitoren fra hinanden (4 skruer). 

2. Lod den gamle ledning ud (6 ledninger). 

3. Lod den nye i, og HUSK skærmet ledning, og HUSK, at 
RGB ledningerne skal stelles (med ca. 10011 modstande), 
og at den ellers kun behøver LUM udgangen: Altså a). 
Lum. b). GND (skærm), c). R-lOOll-GND. d) G-lOOft-GND. 
e) B-10011-GND. 

4. Luk monitoren (gerne med flere skruer). 


Gert Sterner har sendt denne opfølg¬ 
ning af sit brev i nr. 2: 

Dav igen! Jeg havde et problem med min printer, som jeg 
selv løste og nu gerne vil hjælpe andre AMSTRAD ejere 
med prob.emet, bl.a. Kyrin fra Karlslunde. Jeg påstod, at 
printer porten var en 7-bit port, hvilket du ikke mente, og 
hvilket Kyrin og en del af mine venner, samt en del for¬ 
handlere. har erfaret er sandt. Man har ikke mulighed for 
at bruge printerens indbyggede karakterer, fra ascii 128- 
255, samt næsten alt grafisk. Der står på porten, at det er 
en 8-bit. men det er det ikke. Men det, kan loses! Jeg læste 
blot min printer manual igennem, endnu engang, og vup¬ 
ti! der var løsningen. Min printer kan, med 
CHRS(27) chr$(62), kontrollere den 8. bit til '1‘ og med 
CHR5(27) CHR$(61) kontrollere den til 'O'. Den mulighed 
findes måskfe også i andre printere, men gør i hvert fald i 
»STAR« printere, og en »STAR GEMINI 10X« kan købes 
for kr. 4.300 + kabel kr. 250, og det er en meget stærk prin¬ 
ter, som skriver flot, på alt papir, også enkelt ark. Her er et 
lille program, som man kan bruge til copiering af skærmen, 
også hvis man ikke har en printer, der kan kontrollere den 
8. bit. 


10 'slserm copy 

20 ? sX=code til printer tor hoejoploesninq 
ZO ' ,X*256«iX*antal dot 

40 qX=3Ro:wX-0:»X—l«irX*319itX*6iuX— 1 nV.« 1: !X-76i 


,X=64: <X=J20;1 X=6'9: qqX=2 
50 c»«CHR* (27)' ESC 

60 PRINTJIB. c*i CHR6 <51);CHS* < 141 ; ' 1 1 ne teed:* 7 dot 
70 FOR »X*qX TO »X STEP eXiPRlNT*8.c*tCHR*<sX)iCHR» 
<jX> :CHR* <iX> i : F0F kX=hX TO rX: D X- 
wX;FOR cX=t 

X TO «X STEP jX:vX=*X-cX«qqX: IF TEST<xX,vX>=iX THEN 


pX-pX-qqX <t7.-cX> 

80 NE*-:PRINT«8.CHR» <pX'i! NEKT:PRINT»8,c*:CHR* IsX); 
CHRt(,5>|CHR»<iX)iiF0R xX-kX TO IX 
:pX-wX)F0R 

cX-tX -0 hX STEP uXivX=aX-cX*qqX:IF TEST<xX,yX)“iX 
THEN pX=pX*qqX’<tX-cX> 

90 NEXr:PRINT»B.CHP»<pX>;:NE»T:PRlNT#B:NEXT 


SVAR: 

Det lader til, at vi med fælles hjælp nok skal få løst proble¬ 
met. Jeg beklager selvfølgelig det forkerte svar, men på 
det tidspunkt, bladet skulle afleveres til fotosats troede vi 
rent faktisk, vi havde løsningen på problemet. Det viste 
sig, at vi tog fejl, men da var bladet allerede i trykken. 

Vi har prøvet løsningen med chrS(62) på redaktionens 
bedagede Epson MX80, og vi må desvæne konkludere, at 
det ikke virker på denne printer. 

Du har helt ret i, at der er sparet på længden, da man trak 
ledninger mellem computeren og monitoren. 

Dit forslag lyder også umiddelbart fristende, men ved at 
lave ovennævnte indgreb, mister man sin garanti, så det er 
måske klogt at vente, til garantien er bortfaldet. 

I øvrigt arbejder vi i øjeblikket med at lave et interface, 
der passer til alle printere, så man får den 8. bit med. Det 
er på teststadiet i øjeblikket, og vi skal vende tilbage til 
dette i næste nummer af bladet. 


7/8 BIT 

Peter Ockelmann, Dalvænget 8, 3000 Helsingør skriver: 

Gert Sterners spørgsmål angående printerinterfacet på 
Amstrad'en blev besvaret forkert. Interfacet har faktisk 
kun syv datalinjer på Centronicsporten. 

Dette medfører, at kun karaktererne 0-127 kan printes. 
Det skyldes, at man (formentlig af økonomiske årsager) 
har brugt bit 7 (øverste bit) til strobesignal. 

Det er også det, der er grunden, når Kyrin ikke kan få sin 
Microline til at printe karaktererne 128 til 255. Printeren 
gentager simpelthen karaktererne 0-127 fordi den øver- 
ste databit ignoreres. 

Betragtninger over Amstrads 
markedsføringspolitik 

Som lærer og nylig ejer af en AMSTRAD kan man blive ær¬ 
gerlig på det firma, der markedsfører computeren, over 
dets manglende sans for, eller evne til, at sørge for, at bru¬ 
gerne får den fulde fornøjelse af deres maskine ved at 
sørge for, at der er tilstrækkeligt med faglitteratur på 
dansk til maskinen. 

Det ligner ingenting at sælge computere, printere og di¬ 
skettestationer udelukkende med engelske brugervejled¬ 
ninger, for selv om man skulle have kendskab til engelsk, 
skal man alligevel sidde med en ordbog i hånden for at 
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have en chance for at forstå indholdet af teksten, og da 
englænderne er kendt for at anvende mange fagudtryk, 
der som regel ikke findes i en almindelig ordbog, vil man i 
mange tilfælde være ladt i stikken alligevel. Det er rigtigt, 
at man kan kobe en dansk oversættelse, men den burde 
følge med købet, og da den engelske og dermed den dan¬ 
ske brugervejledning er utilstrækkelig og upædagogisk, 
fordi der mangler mange og letfattelige eksempler på for¬ 
skellige kommandoer og finesser, er man ikke kommet ret 
mange skridt frem alligevel. 

I Odenseområdet, hvor jeg bor, har forretningen, der 
sælger AMSTRADEN nu taget skridt til at lave tre bruger- 
kurser af hver 3 1/2 times varighed til en deltagerpris på 
250 kr. pr. kursus. Det er en udmærket tanke, men det vil 
altså koste een yderligere 750 kr. at lære sin datamat at 
kende. 

Hvad der gør denne manglende oplysningsaktivitet 
endnu mere katastrofal er. at mange kommuner er ved at 
se sig om efter alternative datamater til erstatning for de 
Piccoloer, man foler at have forkøbt sig på. 

Selv om AMSTRADEN har en mængde muligheder i sig 
som datamat til undervisningsbrug, er der ikke ret mange, 
der har opdaget det på grund af den manglende faglittera¬ 
tur på dansk. Derfor er der for mig at se, og altså åbenbart 
også for andre, kun Commodore 64 tilbage, der er egnet til 
undervisningsbrug, da der til den findes en righoldig og 
varieret litteratur. 

Som et lille plaster på såret vil jeg gøre opmærksom på. 
at varehuskæden QUELLE i Tyskland med bl.a. udsalg på 
Kirketorvet i Flensburg, sælger AMSTRADEN under nav¬ 
net »SCHNEIDER CPC 464«, og er man en tur dernede, kan 
man da kigge ind og se, om de skulle have noget litteratur, 
man kunne bruge. Selvfølgelig bliver det så på tysk, men 
det fagsprog ligger meget tættere på det danske end det 
engelske fagsprog. 

Der findes også et stort tysk forlag, der har specialiseret 
sig i bøger til datamater. Det hedder: »DATA BECKER« 
Merovingerst. 30, 4000 Diisseldorf, der mig bekendt indtil 
skrivende stund har udgivet: 

»CPC 464 Tips & Tricks« 250 sider 39 DM. 

»CPC 464 Graphik & Sound« 200 sider 39 DM. 

»CPC 464 BASIC-Programme« 180 sider 29 DM. 

»Das Schulbuch zum CPC 464« 380 sider 49 DM. 

»CPC 464 fvir Einsteiger« sidetal og pris er mig ube¬ 
kendt. 

»Das Irainingsbuch zum CPC« 300 sider 39 DM. 

Det var måske en ide til forhandlere af AMSTRAD eller 
andre, der har en interesse i AMSTRADENs fortsatte posi¬ 
tive udvikling, at tage et salg af disse og tilsvarende bøger 
op, indtil man herhjemme kan få sig taget sammen til at 
skrive en fyldestgørende, letfattelig og pædagogisk bru¬ 
gervejledning på dansk, så vi, der har en AMSTRAD, hur¬ 
tigt kan få lært vores kære »legetøj« at kende til bunds. 

Med venlig hilsen 
John Clausen 
Bakkevænget 10 
5471 Søndersø 


Gratis gave 
til dig!!! 

I dette nummer af Amstrad-bladet finder du KEYTOP-LA- 
BELS med danske karakterer, lige til at sætte på tastatu¬ 
ret. 

Vi har altid syntes, at det var en væsentlig mangel ved 
en computer, når man mangler de danske bogstaver. 

Da du købte din Amstrad, fik du sikkert et lille program 
med fra den danske importør, der kunne bruges til at gene¬ 
rere danske bogstaver. Imidlertid har tasterne jo stadig 
det oprindelige udseende, så det er ret forvirrende for især 
nye brugere at finde bogstaverne. 

Det har vi nu rådet bod 
på med disse Labels!!! 

For de læsere, der ikke har programmet, eller måske har 
fået det smidt væk, genoptrykker vi det her: 


10 SYMBOL APTER 91 

20 SYMBOL ASCI-fl, 126,216.216.254.2X6,216,123 
30 SYMBOL ASCr\"|.llB,2®®.214,214,214.3B.22® 

»0 SYMBOL ASO("7">.56,0,124,198,254,198,198 
SO SYMBOL ASCCt”),0,0.116.26,126,216,110 
68 SYMBOL »SCI"I*),0,0,11«,204,414,102.22« 

70 SYMBOL ASCPl") ,46,0,120,12.124.204,118 
80 INPUT "VIL DU HAVE STORE BOGSTAVER SOM DIREKTE TRYK 
ELLER SOM SHIPTET TRYK <D/S> ";AS 
90 A0=ASCI*f) iBø.ASCPV") !CØ=ASC("J"l 
100 ... 

110 IF A5 s "S" THEN X=AllAl a AØ:AØ‘X:X*B1:Bl=B0:8ø s X:X.Cl: 
Cl-Cø:Cø-X 

120 KEY DEF 29,1,A0,Al 

130 KEY DEF 28,1,BØ,B1 

140 KEY DEF 26,1,C®,Cl 

150 KEY DEF 22,1,ASC(*<*),ASC(">"I 

160 KEY DEF 19,1, ASC I "8" I , ASC ( " ' " I 

170 KEY DEF 17,1,ASC("I,ASC("•■I 

180 KEY DEF 39,1, ASC ( " , " I , ASC I" 1 “ I 



På denne illustration kan du se, hvordan de nye karakterer 
kommer til at ligge (billede af nye tanter). 


Dinamicro er i øvrigt på vej med en dansk karakterrom til 
at indbygge i computeren. Denne omdefinerer også ke- 
yboardet og er selvfølgelig den bedst egnede tJ professi¬ 
onelt brug, men løsningen med et BASIC-program er fak¬ 
tisk ret god, da man kan indlægge de danske bogstaver i 
sine egne programmer, som så kan bruges af ALLE. Også 
de, der bruger den originale karakterrom!! 


KUPON: 

Rekvirer gamle nr. 
nyt abonnement. 

Få Amstrad-bladet med posten! 

1 års abonnement kr. 150 (6 numre). 
Kuponsendes til: 

AMSTRAD-bladet, Box 139, 8600 Silkeborg 


JA TAK, Send mig venligst følgende: 


Navn 


Adresse 


Postnr./by 



AMSTRAD 3-8S 
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Hvornår kommer 
den nye Amstrad???? 

Er det bare et rygte???? 



Et program, som redaktionen af Amstradbladet fik til gen¬ 
nemsyn lidt for jul vakte min mistanke. Programmet var 
beregnet til AMSTRAD 464 og 664. * *664**??? Hvad var 
det for en maskine??? Jeg spurgte i Øst og Vest - OK - mest 
i Vest!!. AMSTRAD i England var tavs som graven. Men et 
par opringninger til nogle gode venner i vort computer- 
mæssige moderland synes at bekræfte, at der var noget 
undervejs. Endnu engang samtale med AMSTRAD i Eng¬ 
land. Hårdt presset indrømmede de, at der var nogle nyhe¬ 
der undervejs, men hvad det var, kunne de ikke sige. Be¬ 
tegnelsen Amstrad 664 var noget, de blot brugte i »visse 
lande«. »Hvilke lande«, spurgte jeg. »Tja, det er vanske¬ 
ligt helt nøjagtigt at angive«, lød svaret. Jeg foreslog et 
par forskellige lande. Men i Tyskland hedder Amstrad 464 
»SCHNEIDER 464« - og mine forbindelser i Frankrig og 
Spanien kendte udmærket Amstrad med nummeret 464. 
Der er mange andre lande i verden, så ligemeget. De 
kunne have en kort hukommelse! 11 
Popular Computing Weekly er et engelsk computerblad, 
der som navnet ganske hårfint antyder, udkommer en¬ 
gang om ugen. Bladets journalister er både pågående og 
velorienterede. I februar måned kunne man i PCW læse om 
hele fire nye computere, som Amstrad ville bringe på mar¬ 
kedet i løbet af 1985. Den første af disse ville være en forny- 


Sådan KUNNE AMSTRAD CPC 664 godt se ud. Vor tegner, 
Lars Jacobsen, har givet et bud-. 

else af vores allesammens AMSY. Kassef.estationen ville 
blive udskiftet med en diskettestation, og prisen ville være 
overkommelig. En transportabel udgave af Amstrad (med 
LED-display???) blev også omtalt. 

Hvorom alting er - nye opringninger til Amstrad i Eng¬ 
land kunne bekræfte, at nyheder var undervejs, men at de 
var forsinket i Korea - så er intet sikkert endnu. 

Og prisen vil i Danmark (med moms og transport etc.) ligge 
på omkring 7000 kr. eller derunder incl. en grøn monitor. 
Det er mit tip!! 

Slå koldt vand i blodet. Jeg regner ikke med, at den (eller 
de ?) nye Amstrad kommer til Danmark for tidligst til efter¬ 
året. Men frygt ikke!! Alt den software der er til »den gam¬ 
le« 464 er umiddelbart anvendelig til »den nye«. 

Og Og OG »den nye« vil kunne udvides til 128 Kbyte in¬ 
tern hukommelse. Så vil et fuldt CP/M-system (64 K eller 
mere) kunne anvendes. 

Det var de gode rygter!! Men er det bare rygter?? 

PS. Kunne den grønne monitor dog ikke blive udskiftet 
med en ravfarvet (brun). Den er meget behageligere at se 
på og ikke så skadelig for øjnene. 
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Fons. fra side 7 

bånd. loader forloaderen ind, og isætter derefter båndet 
med den ændrede version, hvorefter LOAD foregår som 
normalt. 

Som en sikkerhed tilbyder Computer-King at bytte de¬ 
fekte eller knækkede bånd indenfor en periode på et år kvit 
og frit. Herefter koster dot et symbolsk belob. 

Alle muligheder til rådighed 

Der er i alle tre programmer muligheder for danske bogsta¬ 
ver. I Tasword/Amsword skal man dog over det indbyg¬ 
gede »second« karaktersæt. Kingsword har defineret æ. ø 
og å samme steder som på en almindelig skrivemaskine, 
hvilket er en stor lettelse ved dagligt brug. 

Der er mulighed for stort set ALT. hvad man med rime¬ 
lighed kan forlar.ge af en tekstbehandling. 

Tekststykker kan flyttes rundt efter behov, tekstblokke 
kan flyttes eller kopieres, man kan vælge mellem at slette 
tegn. ord, linjer eller blokke. Skriftbredden kan være helt 
op til 128 karakterer i bredden. Når man kommer ud over 
de 80, scroller billedet simpelthen sidelæns. 

Herudover er der mulighed for at centrere en linje, man 
kan indlægge faste overskrifter, nummerere sider foroven 
eller forneden, vælge mellem skrivning på ark eller ende¬ 
løst papir, ligesom man kan lave lige højremargin uden 
orddelinger. Endelig kan man indsætte tekst, enten som 
enkeltbogstav, ord eller linjer. Alle programmerne bruger 
TAB tasten til tabulering. På næstnederste linje er der en 
række tabulatorpunkter, man kan springe til. hvilket gør 
tabulering til en leg. 


Mulighed foi mange skrifttyper 

Programmerne er konfigureret til at anvende Epson RX80 
printeren. Denne printers kontrolkoder anvendes også af 
en række andre printere på markedet, bl.a. Logitech. Det 
er imidlertid let at konvertere kontrolkoderne til andre 
printere, så man bliver i stand til at anvende alle program¬ 
mets faciliteter. 

Der findes til Tasword og Amsword et specielt karak¬ 
terprogram, som hedder Tasprint. Dette giver en række 
meget spændende muligheder for at få forskellige skriftty¬ 
per på printeren ud over de »indbyggede«. Der er »Palace 
script«, som ligner håndskrevet skønskrift, »Data Run«, en 
high-tech lignende skrift, »Lectura Light«, der giver en 
yderst fornem og letlæselig skrift, samt »Median« og 
»Compacta« Disse skrifttyper giver karakterer, der er no¬ 
get større end de normale, og de egner sig godt til salgs¬ 
breve etc., hvor man ønsker at fremhæve bestemte passa¬ 
ger. 

Alt i alt får man utroligt meget for pengene ved at inve¬ 
stere i et af ovennævnte programmer. Om man vælger det 
ene eller det andet program, afhænger simpelthen af, hvor 
»engelskorienteret« man er. En stor behagelighed ved 
Kingsword (foruden dansk manual og danske skærmm- 
struktioner) er at æ, o og å ligger de rigtige steder. 

Her på redaktionen bruger vi Tasword til alt forefal¬ 
dende tekstarbejde og har udelukkende positive erfarin¬ 
ger med den. Den er yderst let at anvende og giver mulig¬ 
heder, der er lar.gt større systemer værdige. 


BedgmmtlM 


Betjeningsvenlighed: 

• * * * 

Dokumentation: 

* • * » 

Pris/kvalitet: 
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Anderledes ligger det med talesyntesen. 

Der medleveres et bånd med rutiner til styring af tale¬ 
syntesen. Programmet er i maskinsprog og lokaliserer sig 
omkring adresse 39000. Dette kan man dog selv ændre, da 
programmet beder om en startadresse. Selve maskin¬ 
sprogsrutinerne fylder 4000 bytes, altså knapt 4K. 

Når softwaren er loadet ind, får man en lille hi'.sen i klart 
sprog, et tegn på, at det hele virker, og så er du forresten 
klar til at gå i gang med at udstyre »Arnold« med de be¬ 
mærkninger, du allerhelst vil hore. 

Amstrads BASIC er nu udvidet med otte nye komman¬ 
doer: 

ISPON Tale tilkoblet. 

ISPOF Tale frakoblet. 

IFEED.n bruget til at fode talebufferen direkte samt til 
lydeffekter IFEED kommandoen følges af max 30 data¬ 
bits. 

I FLUS sletter indholdet i talebuffer. 

ISPED.n styrer hvor hurtigt ordene udtales. 

IOUTM.1 giver adgang til »tekst til tale«, hvor man f.eks. 
skriver print » xxxx «. 

IOUTM.2 giver også adgang til »tekst til tale«. Alt der har 
output til skærm, f.eks. listninger, syntax errors osv. bliver 
sagt, men ikke skrevet. 

IOUTM.3 som IOUTM.2, men alt bliver både skrevet og 
sagt. 

Det er muligt at anvende talesyntesen uden det medle¬ 
verede software, men det kræver en ret kraftig indsats af 
programmeringsmæssig art. Syntesen benytter sig af så¬ 
kaldte »Allophones«, nogle lydstumper, der kan sammen¬ 
sættes til ord på et hvilket som helst sprog. Disse lydstum¬ 
per har hver deres kodeværdi, og det er disse værdier, man 
lægger i datasætninger. Der kræves altså en hel del ekspe- 
rimenteren for at få det helt rigtige ord frem. 

Manualen har dog en masse glimrende eksempler på 
engelske ord, som kan benyttes direkte. 

IFEED kommandoen er under softwarekontrol, fra det 
medleverede bånd. Virkemåden er næsten den samme 
som ved brug direkte fra BASIC. 

Text til tale converter 

Her bruges kommandoerne ISPON og ISPOF. Softwaren fra 
dk'Tronics er hovedsageligt beregnet på denne anvendel¬ 
se. Her har man mulighed for, i almindelig skrift, at fortælle 
syntesen, hvad der skal siges. Et eksempel 

10 ISPON REM start tale interrupt 

20 PRINT "Dette er tale" 

30 PRINT "Det er dette også” 

Talen kan også lægges i en variabel som f.eks. følgende: 
10 aS= "Hallo" 

20 ISPON. 

30 PRINT AS. 

Tekst til tale converteren benytter 2 RAM buffere. Text- 
bufferen kan indeholde 100 karakterer, talebufferen kan 
opbevare 250 Allophones. Dette giver omkring 45 sekun¬ 
ders uafbrudt tale. som også vil fortsætte efter et evt. BRE¬ 
AK. Der er dog mulighed for at proppe en klud i munden på 
Arnold ved at bruge kommandoen IFLUS eller ISPOF. 

Om IOUTM kommandoerne er kun at sige Det er meget 
smart fundet på. Man skriver direkte til computeren, og 
den svarer i klart sprog. Det er ikke altid helt forståeligt, 
hvad der kommer, men i forhold til computerens størrelse 
er det nu alligevel ret imponerende. 

Der er også mulighed for at aktivere talesyntetsen fra 
maskinkode. Manualen (engelsk) giver forskellige ek¬ 
sempler på calls til de rette områder. 

Der er Ingen tvivl om, al der liei ei el viikoliyt lækkert 
stykke legetøj, hvis man er interesseret i lyd csv. Der er 
tale om en rigtig »imponator«. Den praktiske anvendelig¬ 
hed er nok ikke den helt store, men der kan foretages inte¬ 
ressante eksperimenter med SPEECH SYNTHESIZER. Pri¬ 
sen er sat til kr. 698 kr. Den engelske pris er f 39.95. 
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Er du forhv. 

Sinclair 

Spectrum 

bruger? 

Horer du til den »generation«, der startede med ZX-81 og 
fortsatte med SPECTRUM, for nu at arbejde med AM- 
STRAD. har du sikkert opdaget, at den basic, du brugte til 
din Sinclaircomputer på nogle punkter er meget forskellig 
fra AMSTRAD basic. På to punkter er der en så væsentlig 
forskel, at det måske volder problemer at få program¬ 
merne til at kore - nemlig strengbehandling og save/load 
af data. Den hjælp du kan få i manualen er ikke fyldestgø¬ 
rende, men her er et par fiduser, der måske kan være dig til 
hjælp. 

Strengbehandling 

SINCLAlR-basic er genialt og enkelt opbygget til streng- 
behandling. AMSTRAD-basic følger den normale stan¬ 
dard. men der er et par forhold, som du måske ikke har op¬ 
daget endnu. Det er ikke nødvendigt at bruge kommando¬ 
erne LEFTS og RIGHTS - det er enklere at bruge MIDS, der 
kan anvendes i alle tilfælde. 

Når du på din Sinclair brugte: AS(n,5 TO 8) skal du på 
AMSTRAD bruge MID5(A5(n), 5.4). 

Det er her vigtigt, at du husker at få spacen med foran ,5. 
I manualen er der kun vist eksempler med en enkelt di¬ 
mensioneret streng, f.eks. MID$(a$,2,4). og her skal der 
ikke bruges en space. 

SAVE/LOAD variabler 

SINCLAIR computere saver variabler, når du saver pro¬ 
grammet og loader dem tilsvarende, når du loader pro¬ 
grammet Dette er ikke tilfældet med din AMSTRAD. Ma¬ 
nualen er heller ikke på dette punkt så uddybende, som 
man kunne ønske sig det. Men har du problemet, kan føl¬ 
gende hjælpe dig: 

SAVE 

1000 OPENOUT (»PROGRAMNAVN«) 

1010 PRINT #9, A,B,C REM A, B og C er variabler. 

1020 PRINT *9,DS REM DS går ikke i 1010. 

1030 FOR N=1 TO 100. 

1040 PRINT #9.ES(N) 

1050NEXTN 
1060 CLOSEOUT. 

LOAD 

2000 OPENIN ("PROGRAMNAVN"). 

2010 INPUT #9,A.B,C REM samme orden som i 1010. 
2020 INPUT #9,DS 
20300 FOR N = 1 TO 100. 

2040 INPUT #9,E5(N). 

2050 NEXT N. 

2060 CLOSEIN. 

Et andet forhold, du skal være opmærksom på, er at det 
koster 4096 bytes i computerens memory at save et pro¬ 
gram på kassettebånd. Laver du større programmer end 
ca. 39500 byles, kan du ikke save dem. 

Og så et sidste råd til forhenværende SPECTRUM-bru- 
gere: Du har fået en meget stærkere basic til din rådighed 
- brug den - eksperimenter med den. og du vil opdage, at 
der er mange flere muligheder, når du laver dine program¬ 
mer. 


Undervisning 
med 

AMSTRAD 464 

Du har lige fået din Amstrad og prøvet et par spil på den. 
Fantastisk er det med alle de spil, men tro mig. Inden 
længe bliver du træt af spil og vil bruge vidunderet til no¬ 
get mere lærerigt. Men hvad?? Jo, køb en bog, der både læ¬ 
rer dig at programmere og lærer dig matematik, geografi, 
grammatik og musik. I alt fald kan du overbevise din fami¬ 
lie om, at investeringen i en Amstrad ikke er overflødigt! 

Men hvilken bog? »40 Educational games for the Am¬ 
strad CPC 464« skrevet af Vince Apps og udgivet på det 
engelske forlag Granada, er en god bog at begynde med. 

Bogen indeholder 40 programlistninger, der heldigvis 
ikke har været gennem sætternissens maskineri. Listnin¬ 
gerne er alle direkte aftrykt efter originale udprintninger. 
Hvis de ellers tastes rigtigt ind, »kører« de med garanti 
første gang. Denne måde at liste programmer på kunne 
man godt tænke sig anvendt i alle computerbøger. Des¬ 
værre er det ikke altid tilfældet! 

Det vil føre for vidt at gennemgå alle programmerne her, 
men et par enkelt skal dog fremhæves, da jeg finder, de er 
anvendelige i dansk sammenhæng. 

Spelling Test (Stave træning) er et koit, men godt pro¬ 
gram, der træner stavning. Det er muligt at lave staveor¬ 
dene om, så programmet passer til både lillesøster og mor. 
Alle ord kan puttes ind i programmet, du ser dem et øjeblik 
på skærmen, og så er det din tur. 

Speed Reading (hurtig læsning) er opbygget på tilsva¬ 
rende måde og træner både læsning og stavning. 

Der er også en del geografiprogrammer beregnet til at 
indlære engelske amter og byer. Det er åbenbart stadig 
god tone i England, at de unge mennesker skal lære Eng¬ 
lands geografi. Oversætter du programmet (du skal have 
Amstrad'en til at tegne et danmarkskort) og bruger de ide¬ 
er, der ligger i programmet, har du både lært en del om pro¬ 
grammering og om Danmarks geografi. 

Regneprogrammer findes i flere versioner. Ligeledes 
aritmetik og geometri indlæringsprogrammer, og for kom¬ 
mende telegrafister og radioamatører er der også et 
Morse-indlæringsprogram. 

Indtil nu har der kun været ros til denne bog. men et par 
dråber malurt skal dog dryppes i bægeret. De fleste af bo¬ 
gens programmer udnytter IKKE de muligheder for struk¬ 
tureret programmering som AMSTRAD giver mulighed 
for. Programmerne synes oprindeligt at være skrevet for 
en anden computer (Spectrum?) og så hurtigt oversat, da 
AMSY kom på det engelske marked. Programmerne er dog 
anvendelige for de yngre årgange (9-12 år) som indlæ¬ 
ringsprogrammer, og bogen er god at få forstand af for den 
lidt uerfarne i grundlæggende BASIC-programmering. 
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Indeholder bl.a.: 

Hvordan konstrueres 
ADVENTURESPIL? 

Anvendelse af de nye 
CPM programmer 

Memory-opbygningen 
i CPC 464 

Programmer, 

Tips og Tricks 

og meget, meget mere... 
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TESTER — PROGRAMMER — NTHETER 
KONKURRANSER — UNDERVISNING 
TEMASIDER — KLUBBSIDER — BRUKTMARKED 


mikrodata 


MED 


□ Ja takk. jeg bestiller Navn: ... 

abonnement på Mt KRO DA TA 
1 år (lOutg.) NKR. 178.- Adresse: 


□ Jeg vil gjerne kikke på 
fire gamle MIKRODATA! 


Postested: 


Kuponen sendestil: 
Computerworld Norge A S 
Postbo< 2862 Tøven 
0808 OSLO 6 
Norge 


Land: . 

Underskrift: 
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POSTBESØRGET BLAD 




AMSTRAD...familiens nye 
samlingspunkt 

Al AMSTRAD er blevet familiens nye samlingspunkt, kan der ikke 
herske tvivl om AMSTRAD computer systemet tindes allerede I dag I 
adskillige tusinde danske h|em, og hver dag bliver der brugt ufor¬ 
glemmelige timer med computeren. Til spil og underholdning, men og¬ 
så til spændende regnestykker med oversigt over familiens økonomi. 
AMSTRAD leveres som el komplet computer system og alt dette får 
du med I prisen: 12714" monitor, indbygget datarecorder med 2 ha¬ 
stigheder (1000-2000 baud), separat nummensk tastatur, regulerbar 
lyddel, 64K-RAM og 280 processor. 

SUPERSTÆRK BASIC 

20, 40 eller 80 tegn pr, linie, Op til 200 x 640 punkters gratisk opløs¬ 
ning. Opdeling af skærm i 8 vinduer. 

Tilslutninger 

AMSTRAD 3" diskettestation - 16-20 gange hurtigere end konkur 
enterne AMSTRAD printer (Centronics parallel). Joystick. Stereo- 
jdgang Z80 bus. 


Stort udvalg i software 

=lere hundrede programmer Underholdning, undervisning og erhverv 

AMSTRAD Computer System 

DPC 464, 64 K RAM (over 42 K bruger RAM), Z80A processor, hastig¬ 
led: 4 MHz. indbygget datarecorder. 

Medfølgende tilbehør: Instruktionsbog samt 12" grøn mcnitor med 
ndbygget strømforsyning 
ve)i priser 

med 12" monocrome monitor 44yt>,* 

som ovenfor men med 14" larvemonitor 5995,* 

Forhandles al compulerforrelningor, varehuse og tovende kæder 
inden lor radio, loto og boghandel 


Med AMSTRAD 3" diskutlestatlon og printer, 
lorvandler du let og hurtigt hiemmecomputerei 
til en semiprolesslonel PC'er. der er i stand 
III at lose de daglige rutineopgaver som 
regnskab og tekstbehandling 
AMSTRAD 3" diskettestation DDI-i f 
leveres mol disketter CPM 2,2 y 
samt Do:ny Logo lor 
kun 4495,- , 

I -f 


•vi foretrækker 

også 


læsere til årets hjemmecomputer.. 



































